frame.pas

来自「物流管理系统是一个典型的数据库应用程序」· PAS 代码 · 共 40 行

unit frame;

interface

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

type
  Tf_frame = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    Procedure FindNext(Direct: Boolean);Virtual;  //按回车键控制焦点的移动
    { Public declarations }
  end;

var
  f_frame: Tf_frame;

implementation
  uses main,interfase;
{$R *.dfm}

procedure Tf_frame.FindNext(Direct: Boolean);
begin
  FindNextControl(ActiveControl,Direct,False,False).SetFocus;
end;
//按Esc键关闭窗体
procedure Tf_frame.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Escape then
    Close;
end;

end.