frame_find.pas

来自「企业信息管理系统程序框架」· PAS 代码 · 共 43 行

unit frame_find;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frame_uDataList, ImgList, Grids, DBGridEh, PDBGridEh, ComCtrls,
  ToolWin, StdCtrls, Buttons, dcfdes, dcddes, ExtCtrls;

type
  Tframe_frmfind = class(Tframe_frmDataList)
    btnok: TToolButton;
    procedure btnokClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frame_frmfind: Tframe_frmfind;

implementation

{$R *.dfm}

procedure Tframe_frmfind.btnokClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tframe_frmfind.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=vk_return then close;
end;

end.