Function ShowMsg(AskString: String): Boolean;
begin
if MainForm.WebMode then
//must uses UniGUIApplication
UniSession.AddJS(‘alert(‘’’+AskString+’’’);’)
else
ShowMessage(AskString);
end;
在浏览器执行不可用ShowMessage
Function ShowMsg(AskString: String): Boolean;
begin
if MainForm.WebMode then
//must uses UniGUIApplication
UniSession.AddJS(‘alert(‘’’+AskString+’’’);’)
else
ShowMessage(AskString);
end;
在浏览器执行不可用ShowMessage