delphi的web开发一些必要步骤

在UserSessionUnit中的
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;

你可能感兴趣的:(delphi)