childccp.pas

来自「一个简单的家庭财务管理软件。」· PAS 代码 · 共 86 行

unit childccp;

interface

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

type
  Tchildcc = class(TForm)
  private
     bchild:boolean;
     TempParent :TWinControl;
    { Private declarations }
  protected
     FDBInit:TDBBase;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure Loaded; override;
  public
    { Public declarations }
    constructor Create(Aowner :TComponent);overload;override;
    constructor Create(Aowner :Tcomponent;Aparent :TwinControl);reintroduce;overload;
    constructor Create(Aowner :Tcomponent;Aparent :TWinControl;ADBinit:TDBbase);reintroduce;overload;
 end;

  TChildccClass = Class of Tchildcc;

var
  childcc: Tchildcc;

implementation

{$R *.dfm}

Constructor TChildcc.Create(Aowner:TComponent);
begin

  bchild := false;
  font.Name := '宋体';
  font.Size := 9;
  inherited Create(AOwner);
  
end;

constructor TChildcc.Create(Aowner:Tcomponent;Aparent :TwinControl);
begin
  bchild := True;
  TempParent := Aparent;
//  parent:=Aparent;
  inherited Create(Aowner);
  self.Parent  := Aparent;
end;

constructor TChildcc.Create(Aowner :Tcomponent;Aparent :TWinControl;ADBinit:TDBbase);
begin
   Fdbinit := Adbinit;
   bchild := True;
   TempParent := Aparent;
   inherited Create(Aowner);
end;

procedure TChildcc.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if bChild then
  begin
    Params.Style := Params.Style or WS_CHILD;
  end;
end;


procedure TChildcc.Loaded;
begin
  inherited;
  if bChild then
  begin
    align := alClient;
    BorderStyle := bsNone;
    BorderIcons := [];
    Parent := TempParent;
    Position := poDefault;
  end;
end;

end.