在UserSessionUnit中的
uses加入IWAppForm
在implementation中加入
uses加入IWAppForm
在implementation中加入
uses IWInit,ServerController
在Public 中定义参数和函数,每个用户登录后都会独立创建一个
procedure Move(AFormClass:TIWAppFormClass);
//定义我们的一个打开新页面的函数
//事件
procedure TIWUserSession.Move(AFormClass:TIWAppFormClass);
begin
TIWAppForm(WebApplication.ActiveForm).Free;//关闭当前页面
AFormClass.Create(WebApplication).show; //显示要打开的页面,AFormClass参数为要打开的窗口的name前面加个T就行了
如:UserSession.Move(TIWForm2); //打开窗口2
end;