childfrm.pas

考勤管理是企业内部管理的重要环节和基础

unit Childfrm;

interface

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

type
  TChildform = class(TForm)
    imgBkColor: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Add this declaration for the graphic}
  public
    { Public declarations }
  end;

var
  ParentClientHeight:integer;
  ParentClientWidth:integer;
//  imgBkColorLeft:integer;
//  imgBkColorTop:integer;
{*  LxButton1Left:integer;
  LxButton1Top:integer;
  LxButton2Left:integer;
  LxButton2Top:integer;
  LxButton3Left:integer;
  LxButton3Top:integer;
  LxDBGrid1Height:integer;
  LxDBGrid1Width:integer;
*}
  Childform: TChildform;

implementation

{$R *.DFM}

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

procedure TChildform.FormDestroy(Sender: TObject);
begin
   Childform:=nil;
end;

procedure TChildform.FormCreate(Sender: TObject);
begin
  top:=0;
  left:=(Screen.Width-Width) div 2;
  imgBkColor.Left:=0;
  imgBkColor.Top:=0;
  imgBkColor.Width:=ClientWidth;
  imgBkColor.Height:=ClientHeight;
  ParentClientHeight:=ClientHeight;
  ParentClientWidth:=ClientWidth;
end;

procedure TChildform.FormResize(Sender: TObject);
begin
   imgBkColor.Width:=ClientWidth;
   imgBkColor.Height:=ClientHeight;
end;

end.