mdibase.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 38 行

unit MDIBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base;

type
  TfrmMDIBase = class(TfrmBase)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    constructor CreateWithModuleID(AOwner: TComponent; ModuleID: Integer);
    { Public declarations }
  end;

var
  frmMDIBase        : TfrmMDIBase;

implementation

{$R *.dfm}

constructor TfrmMDIBase.CreateWithModuleID(AOwner: TComponent; ModuleID: Integer);
begin
  iModuleID := ModuleID;
  inherited create(AOwner);
end;

procedure TfrmMDIBase.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

end.