要在uniGUI里引用JavaScript代码
1】直接引用运行
procedure TMainForm.UniBitBtn1Click(Sender: TObject); begin UniSession.AddJS('function addFunc01(p1,p2) {'+ ' return p1+p2; '+ '} ');//添加函数addFunc01 UniSession.AddJS('alert(addFunc02(3,5));');//调用函数addFunc01 end;
2】从.js文件中引用。这样可以不 编译 UniGui而直接改写JavaScript脚本。
a]双击ServerModule单元的” CustomFiles”属性添加JS库文件路径,然后在界面里面执行代码。
b].js文件要放在相对于Project1.exe的相对目录路径 下
c]myFunction.js代码
function addFunc02(p1,p2) { return p1+p2; }
d]执行JavaScripts
procedure TMainForm.UniBitBtn2Click(Sender: TObject); begin UniSession.AddJS('alert(addFunc02(3,5));');//调用函数addFunc02 end;