?? basedialog.pas
字號:
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按下, 關(guān)閉本窗口
if Key = VK_F12 then
Close;
end;
procedure TfmBaseDialog.PrepareDlg;
begin
end;
procedure TfmBaseDialog.bnOKClick(Sender: TObject);
begin
if DM.tbInput.State = dsBrowse then
DM.tbInput.Edit;
//將使用者的輸入條件儲存, 但是沒更新到數(shù)據(jù)庫
DM.tbInput.Post;
end;
procedure TfmBaseDialog.FormCreate(Sender: TObject);
begin
try
fmLoading := TfmLoading.Create(Application);
fmLoading.Show;
fmLoading.Update;
//tbInput為瀏覽模式時, 要變更為修改模式,
//這樣才能修改tbInput的內(nèi)容
if DM.tbInput.State = dsBrowse then
DM.tbInput.Edit;
PrepareDlg;
finally
fmLoading.Free;
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -