mdibase.pas

产品信息系统!关于产品基础信息的系统!功能强大!

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.