【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了frame.pas提供大家参考，希望对大家有所帮助!

    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.
    

上一篇：fram.pas
下一篇：用于土木工程结构抗震的半主动调谐质量阻尼器