mdichild.pas

来自「仲裁委仲裁案件计酬程序.有基础资料设置、分级设置」· PAS 代码 · 共 46 行

unit MDIChild;

interface
uses Classes, Forms;
type
  TMDIChild = class(TForm)
  Protected
    Procedure Activate; override;
    Procedure DoClose(var Action: TCloseAction); override;
  Public
    Procedure AfterConstruction; override;
    Destructor Destroy; override;
  end;

implementation
{ TMDIChild }
Uses Main;

Procedure TMDIChild.AfterConstruction;
begin
  FormStyle := fsMDIChild;
  WindowState:=wsMaximized;
  inherited;
  MainFrm.AddWindow(Self, Caption);
end;

Destructor TMDIChild.Destroy;
begin
  if Application.Active then
    MainFrm.DelWindow(Self);
  inherited;
end;

Procedure TMDIChild.Activate;
begin
  inherited;
  MainFrm.ActivateWindow(Self);
end;

Procedure TMDIChild.DoClose(var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
end;
end.