?? base_dialog.pas
字號:
unit Base_Dialog;
Interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Base_Common, StdCtrls, Mask, DBCtrls, Db, AdODB;
Type
TFrm_Base_Dialog = Class(TFrm_Base_Common)
btn_ok: TButton;
btn_Cancel: TButton;
procedure btn_okClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Base_Dialog: TFrm_Base_Dialog;
implementation
{$R *.DFM}
procedure TFrm_Base_Dialog.btn_okClick(Sender: TObject);
var
i:integer;
begin//確定之前全部檢查
inherited;
ExecOnExit(ActiveControl);
for i:=0 to ControlCount-1 do
begin
if(not Controls[i].Enabled)then
continue;
ExecOnExit(Controls[i]);
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -