childfm.pas

一个电力部门的催缴费用系统

unit ChildFM;

interface

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

  
type
  Tfm_Child = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FAsChild: Boolean;
    FTempParent: TWinControl;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; AParent: TWinControl);reintroduce; overload;
  end;
{
var
  fm_Child: Tfm_Child;
}
implementation

{$R *.DFM}
constructor Tfm_Child.Create(AOwner: TComponent; AParent: TWinControl);
begin
  FAsChild := True;
  FTempParent := aParent;
 
  inherited Create(AOwner);
end;

procedure Tfm_Child.FormCreate(Sender: TObject);
begin
  if FAsChild then
  begin
    BorderStyle :=bsnone;
    parent      :=FTempParent;
    Align       :=alclient;
  end;

end;

procedure Tfm_Child.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=Cafree;
end;

end.