?? search.~pas
字號:
unit Search;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TSearchForm = class(TForm)
XMCheckBox: TCheckBox;
XMEdit: TEdit;
SFZEdit: TEdit;
SCZEdit: TEdit;
DJEdit: TComboBox;
XZEdit: TComboBox;
QueDinButton: TButton;
QuXiaoButton: TButton;
SFZCheckBox: TCheckBox;
SCZCheckBox: TCheckBox;
DJCheckBox: TCheckBox;
XZCheckBox: TCheckBox;
MHCheckBox: TCheckBox;
JHCheckBox: TCheckBox;
JHGroupBox: TGroupBox;
YesRadioButton: TRadioButton;
NoRadioButton: TRadioButton;
procedure XMCheckBoxClick(Sender: TObject);
procedure QueDinButtonClick(Sender: TObject);
procedure QuXiaoButtonClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
QueDin:Boolean;
end;
var
SearchForm: TSearchForm;
implementation
{$R *.dfm}
procedure TSearchForm.XMCheckBoxClick(Sender: TObject);
begin
XMedit.Enabled :=XMCheckBox.Checked ;
SFZedit.Enabled :=SFZCheckBox.Checked ;
SCZedit.Enabled :=SCZCheckBox.Checked ;
DJedit.Enabled :=DJCheckBox.Checked ;
XZedit.Enabled :=XZCheckBox.Checked ;
JHGroupBox.Enabled :=JHCheckBox.Checked;
end;
procedure TSearchForm.QueDinButtonClick(Sender: TObject);
begin
QueDin:=true;
SearchForm.Close;
end;
procedure TSearchForm.QuXiaoButtonClick(Sender: TObject);
begin
SearchForm.Close;
end;
procedure TSearchForm.FormShow(Sender: TObject);
begin
QueDin:=false;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -