sdifrm.pas

来自「考勤管理是企业内部管理的重要环节和基础」· PAS 代码 · 共 58 行

unit SDIfrm;

interface

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

type
  TSDIForm = class(TForm)
    imgBkColor: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ParentClientHeight:integer;
  ParentClientWidth:integer;
  SDIForm: TSDIForm;

implementation

{$R *.DFM}

procedure TSDIForm.FormCreate(Sender: TObject);
begin
   imgBkColor.Left:=0;
   imgBkColor.Top:=0;
   imgBkColor.Width:=ClientWidth;
   imgBkColor.Height:=ClientHeight;
   ParentClientHeight:=ClientHeight;
   ParentClientWidth:=ClientWidth;
end;

procedure TSDIForm.FormDestroy(Sender: TObject);
begin
  SDIForm:=nil;
end;

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

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

end.