childwin.pas

来自「一个很好的企业内部人事管理系统,具有基本的框架和标准的结构,很容易改成具体的复杂」· PAS 代码 · 共 26 行

unit Childwin;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls;

type
  TMDIChild = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.