求组如何用快捷键实现CHECKBOX

Question

想通过快捷键比如F1实现 ，按F1，CHECKBOX就会打勾执行，再按一下就会取消。各位大大有相关的代码给我一个么？小弟这里谢谢了。

Answer 1

RegisterHotKey(self.Handle,HotKey_F06_ID,0,vk_f3);
    PROCEDURE hot_key(var msg:twmhotkey);Message wm_hotkey;   PROCEDURE Tfmain.hot_key(var msg:twmhotkey);
   begin
   if msg.hotkey=HotKey_F06_ID then
    checkbox1.checked:=true;
   end;

Answer 2

[致命错误] Unable to build.  License is invalid or has expired.
[致命错误] Unable to build.  License is invalid or has expired.
[致命错误] Project1.dpr(2): Read error on 'c:\program files\borland\delphi7\Lib\System.dcu'

Answer 3

unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
    CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
protected
procedure hotykey(var msg:TMessage); message WM_HOTKEY;
end;var
Form1: TForm1;
HotKey:Integer;implementation{$R *.DFM}
procedure TForm1.hotykey(var msg:TMessage);
begin
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=13) then
begin
checkbox1.Checked:=ture
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
HotKey:=GlobalAddAtom('HotKey');
RegisterHotKey(handle,HotKey,mod_control,13);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,HotKey);
end;end.
用CTRL+ENTTER但是运行不起来[错误] Unit1.pas(31): Undeclared identifier: 'ture'
[致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 4

'ture'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 5

笔误。
true 和ture好好写！
晕哟

Answer 6

可以了谢谢了你了啊分给完了呵呵`但是打勾以后不执行CHECKBOX的的代码帮偶看看好么。
 unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
protected
procedure hotykey(var msg:TMessage); message WM_HOTKEY;
end;var
Form1: TForm1;
HotKey:Integer;
hw:hwnd;
pid: hwnd;
hProcess: hwnd;
Num: Cardinal;
implementation{$R *.DFM}
procedure TForm1.hotykey(var msg:TMessage);
begin
if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=13) then
begin
    checkbox1.Checked：=not checkbox1.Checked
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
hw:=findwindow(nil,'readme22.txt - 记事本');
HotKey:=GlobalAddAtom('HotKey');
RegisterHotKey(handle,HotKey,mod_control,13);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,HotKey);
end;procedure TForm1.CheckBox1Click(Sender: TObject);
  begin
    GetWindowThreadProcessId(hw, @pid);
   if checkbox1.Checked then
    showwindow(hw,SW_HIDE)
  else
    showwindow(hw,SW_SHOW);
end;
end.