使用 IntraWeb (3) - 页面切换

标签：c   class   a   color   int   使用   

uses ServerController, Unit2, Unit3;

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  IWServerController.HistoryEnabled := True; //使浏览器后退、前进按钮有效
  IWButton1.Caption := ‘IWForm2‘;
  IWButton2.Caption := ‘IWForm3‘;
end;


procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
  TIWForm2.Create(WebApplication).Show; //建立并显示 TIWForm2; 执行后 WebApplication.ActiveForm 就从 TIWForm1 变为 TIWForm2
end;

procedure TIWForm1.IWButton2Click(Sender: TObject);
begin
  TIWForm3.Create(WebApplication).Show; //
end;

initialization
  TIWForm1.SetAsMainForm; //这是 TIWAppForm 的 Class 方法; 其作用是建立并设置当前窗口为主窗口(其实在 IW 中只有 ActiveForm, 无所谓 MainForm )
                          //当然也同样设置其他窗体是首先被激活的窗体

procedure TIWForm2.IWAppFormCreate(Sender: TObject);
begin
  IWButton1.Caption := Name; //只是用不同的标题区别一下
end;

procedure TIWForm2.IWButton1Click(Sender: TObject);
begin
  Release; //释放后, TIWForm1 就出来了, 达到了返回的目的
           //为什么 IW 提倡使用 Release 而不是通常的 Free 呢?
           //我经过测试发现, Release 和 Free 是有区别的, 因为看不到源码就不把没把握的猜测写出来了
end;

procedure TIWForm3.IWAppFormCreate(Sender: TObject);
begin
  IWButton1.Caption := Name;
end;

procedure TIWForm3.IWButton1Click(Sender: TObject);
begin
  Release;
end;

使用 IntraWeb (3) - 页面切换,布布扣,bubuko.com

使用 IntraWeb (3) - 页面切换

标签：c   class   a   color   int   使用   

原文地址：http://www.cnblogs.com/del/p/3765652.html