basedialog.~pas

来自「进销存程序设计」· ~PAS 代码 · 共 53 行

unit BaseDialog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, DBCtrls, Mask;

type
  TfmBaseDialog = class(TForm)
    qyTemp: TQuery;
    bnOK: TBitBtn;
    bnCancel: TBitBtn;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; virtual;
  end;

var
  fmBaseDialog: TfmBaseDialog;

implementation

uses Main, Loading, DataModule;

{$R *.DFM}

procedure TfmBaseDialog.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key <> #13 then Exit;
  //当Enter按下时, 模拟Tab键, 移动光标到下一个可停驻的对象
  key := #0;
  Perform(WM_NextDlgCtl, 0, 0);
end;

procedure TfmBaseDialog.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //F12按下, 关闭本窗口
  if Key = VK_F12 then
    Close;
end;

procedure TfmBaseDialog.PrepareDlg;
begin