unit Unit2;

interface

uses WebHttp, WebCore, WebUI, WebForms, WebCtrls, WebPages, WebBtns, WebGrids, WebData;

type

   TForm2 = class(TForm)
      PagePanel1: TPagePanel;
      Page1: TPage;
      Page2: TPage;
      CloseButton: TButton;
      PagePanel2: TPagePanel;
      InnerPage3: TPage;
      InnerPage4: TPage;
      procedure Page1Show(Sender: TObject);
      procedure Form2Close(Sender: TObject);
      procedure CloseButtonClick(Sender: TObject);
      procedure InnerPage3Show(Sender: TObject);
      procedure Form2Show(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   Form2: TForm2;

implementation

procedure TForm2.Page1Show(Sender: TObject);
begin
   LogOutput('Form2 Page 1 Show');
end;

procedure TForm2.Form2Close(Sender: TObject);
begin
   LogOutput('From 2 Closed');
end;

procedure TForm2.CloseButtonClick(Sender: TObject);
begin
   Close();
end;

procedure TForm2.InnerPage3Show(Sender: TObject);
begin
   LogOutput('Form 2 Inner Page 3 Show');
end;

procedure TForm2.Form2Show(Sender: TObject);
begin
   LogOutput('Form 2 Show');
end;

end.