IntraWeb使BackButton生效

[xiaohuan]

我用的是 IntraWeb 5.1.22
TMS1.2

我看到 IntraWeb 5.1.22 的demo里面可以使用IE的backbutton ，例子很简单但是我怎么也找不到它是怎么做到的，从代码里面根本看不出啊

那位大哥帮帮我，另外有关于intraweb的资料吗？

[xiaohuan]

下面的这个例子用的可是AppMode ，backbutton能用，代码也很简单，可我就是不明白是怎么做到的。

program BackButton;
uses
Forms,
IWMain,
ServerController in 'ServerController.pas' {IWServerController: TIWServerController},
Main in 'Main.pas' {MainForm: TIWFormModuleBase},
Second in 'Second.pas' {SecondForm: TIWAppForm},
Third in 'Third.pas' {ThirdForm: TIWAppForm};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TformIWMain, formIWMain);
Application.Run;
end.


////////////////////////////////////////
unit Main;

interface

uses
Classes, SysUtils, IWAppForm, IWApplication, IWTypes, IWCompButton,
IWCompEdit, Controls, IWBaseControl, IWControl, IWCompLabel;

type
TMainForm = class(TIWAppForm)
IWLabel1: TIWLabel;
IWLabel2: TIWLabel;
IWLabel3: TIWLabel;
editUsername: TIWEdit;
editPassword: TIWEdit;
butnLogin: TIWButton;
IWLabel4: TIWLabel;
lablLoginStatus: TIWLabel;
procedure butnLoginClick(Sender: TObject);
public
end;

implementation
{$R *.dfm}

uses
ServerController, Second;

procedure TMainForm.butnLoginClick(Sender: TObject);
begin
if (editUsername.Text = 'demo') and (editPassword.Text = 'demo') then begin
TSecondForm.Create(WebApplication).Show;
end else begin
lablLoginStatus.Visible := True;

end;
end;

initialization
TMainForm.SetAsMainForm
end.


////////////////////////////////////////////////
unit Second;

interface

uses
Classes, SysUtils, IWAppForm, IWApplication, IWTypes, Controls,
IWBaseControl, IWControl, IWCompText, IWHTMLControls;

type
TSecondForm = class(TIWAppForm)
IWText1: TIWText;
IWLink1: TIWLink;
procedure IWLink1Click(Sender: TObject);
public
end;

implementation

uses Third;

{$R *.dfm}

procedure TSecondForm.IWLink1Click(Sender: TObject);
begin
TThirdForm.Create(WebApplication).Show;
end;

end.

[bambino]

historyenabled属性改为true
不过有一点小问题，要写代码解决

[xiaohuan]

搞定

[xiaohuan]

自己顶

[tccb]

intraweb开发有两种方式。AppMode和PageMode，即应用模式和页模式。
PageMode灵活性更强一些，可以支持backbutton