baseform.pas

这是一个实用的软件

//********************************//
//  模块:基础模块                 //
//  设计：杨凌      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.