app.test.mainform.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 55 行

unit App.Test.MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Form.TS2Frame, S2.View.TS2View, S2.Model.TS2SystemObject,
  S2.Controller.TS2ViewsController, S2.Controller.TS2AdapterDataPagesController,
  StdCtrls, ExtCtrls, RzBckgnd, RzPanel, RzStatus;

type
  TMainForm = class(TForm)
    Panel1: TPanel;
    RzBackground1: TRzBackground;
    Button1: TButton;
    Button2: TButton;
    RzStatusBar1: TRzStatusBar;
    RzClockStatus1: TRzClockStatus;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    PagesController: TS2AdapterDataPagesController;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses
  App.Test.EmployeeGridView, S2.Tools.TS2Dict, S2.Tools.TS2DictItem;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  PagesController := TS2AdapterDataPagesController.Create(Self, GetGlobalSystemObject);
  PagesController.Parent := Self;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  FreeAndNil(PagesController);
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  PagesController.AppendView(TEmployeeGridView)
end;

end.