ubasefrm.pas

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· PAS 代码 · 共 51 行

unit uBasefrm;

interface

uses
  classes,forms,uIHintInf;

type
  TBaseForm = class(TForm)
  private
    FData: Pointer;
    FTheCmd: cmdType;
    FID: integer;
    FTheForm: frmType;
    procedure SetData(const Value: Pointer);
    procedure SetTheCmd(const Value: cmdType);
    procedure SetID(const Value: integer);
    procedure SetTheForm(const Value: frmType);
  public
    property ID:integer read FID write SetID;
    property Data:Pointer read FData write SetData;
    property TheCmd:cmdType read FTheCmd write SetTheCmd;
    property TheForm:frmType read FTheForm write SetTheForm;
  end;

implementation

{ TBaseForm }

procedure TBaseForm.SetData(const Value: Pointer);
begin
  FData := Value;
end;

procedure TBaseForm.SetID(const Value: integer);
begin
  FID := Value;
end;

procedure TBaseForm.SetTheCmd(const Value: cmdType);
begin
  FTheCmd := Value;
end;

procedure TBaseForm.SetTheForm(const Value: frmType);
begin
  FTheForm := Value;
end;

end.