ufrm_level1.pas

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· PAS 代码 · 共 73 行

//  ***************************************
//  *    Program name: pattern ufrm_level1*
//  *    AUTHOR      : Guo xuliang        *
//  *    Date        : 2005/05/15         *
//  *    Purpose     :公共模板第一层      *
//  ***************************************

//=================================================================
//設置項目﹕
//1.FormStyle:fsMDIChild;
//2.KeyPreview:True;
//3.On close:action:=cafree;
//4.OnKeyDown:if key=13 then selectnext(activecontrol,true,true);
//5.自動調整窗體大小(肖准提供未經過証實的葵花寶典) 暂不用.
//=================================================================
unit ufrm_level1;

interface

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

type
  Tfrm_level1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  ScreenHeight:integer=800;
  ScreenWidth:integer=600;
var
  frm_level1: Tfrm_level1;

implementation

{$R *.dfm}

procedure Tfrm_level1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   action:=cafree;
end;

procedure Tfrm_level1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then selectnext(activecontrol,true,true);
end;

procedure Tfrm_level1.FormCreate(Sender: TObject);
//var
  //x,y:Longint;
begin
{  Scaled:=true;
  x:=GetSystemMetrics(SM_CXSCREEN);
  y:=GetSystemMetrics(SM_CYSCREEN);
  if (x<>ScreenHeight) or (y<>ScreenWidth) then
    begin
      Height:=Height * x div ScreenHeight;
      Width :=Width * y div ScreenWidth;
      ScaleBy(x,ScreenHeight);
    end;}
end;

end.