baseform.pas

来自「一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码」· PAS 代码 · 共 44 行

//********************************//
//  模块:基础模块                 //
//  设计：杨凌      2005.06.20    //
//                                //
//********************************//
unit baseform;

interface

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

type
  Tfbaseform = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fbaseform: Tfbaseform;

implementation



{$R *.dfm}

procedure Tfbaseform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_RETURN) and (ActiveControl <> Nil) then begin
     Key := 0;
     Perform(WM_NEXTDLGCTL, 0 , 0);
     Exit;
  end;
end;

end.