if (msg.LParamHi=VK_F1) then
begin
a:=a+1;
a:=a mod 2;
if a=1 then
checkbox1.Checked:=true
else
checkbox1.Checked:=false
end;
BCB应该怎么设置呢?
...全文
1611打赏收藏
bcb设置全局热键
我想 如果按一下F1 那么Checkbox1打勾 按第2下则取消打勾, delphi的判断是这样的 if (msg.LParamHi=VK_F1) then begin a:=a+1; a:=a mod 2; if a=1 then checkbox1.Checked:=true else checkbox1.Checked:=false end; BCB应该怎么设置呢?