unit2.pas

类似IE的前进、后退、历史记录 功能 (VCL组件) delphi语言编写

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, UIStateNav;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Panel1: TPanel;
    Button1: TButton;
    UIStateNav1: TUIStateNav;
    Button2: TButton;
    Label2: TLabel;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure UIStateNav1RetrieveUIState(Sender: TObject;
      aUIState: TPUIStateData);
    procedure UIStateNav1SaveUIState(Sender: TObject;
      aUIState: TPUIStateData);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure RefreshUI_WebContent;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  UIStateNav1.RecordUIState;
  RefreshUI_WebContent;
end;

procedure TForm2.RefreshUI_WebContent;
begin
  label2.Caption:=format('欢迎来到 [ %s ] 网站!   ',[edit1.text]);
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
  UIStateNav1.Backward;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  UIStateNav1.Forward;
end;

procedure TForm2.UIStateNav1RetrieveUIState(Sender: TObject;
  aUIState: TPUIStateData);
begin
  edit1.Text:=aUIState.TagString;
  RefreshUI_WebContent;
end;

procedure TForm2.UIStateNav1SaveUIState(Sender: TObject;
  aUIState: TPUIStateData);
begin
  aUIState.TagString:=edit1.Text;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
  i:integer;
begin
  form3.ListBox1.items.Clear;
  for i :=0  to UIStateNav1.HistoryCount-1 do
    form3.ListBox1.items.Add(UIStateNav1.History[i].TagString);

  form3.ListBox1.ItemIndex:=UIStateNav1.Index;
  form3.ShowModal;
end;

end.