delphi里使用F5快捷键的问题，开启exe后，就占用了F5，如何不霸占。。？

Question

霸占的意思就是说，一运行程序，F5在别的地方就没效果了。（网页上按F5就没有刷新效果了）里面有个checkbox，我想他被勾选时，F5才生效，起作用。去掉勾时，在别的窗口也不影响F系列快捷键这是他的源码
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to 6 do
begin
HotKeyID[i]:=GlobalAddAtom(pchar('F'+inttostr(i+4)))-$C000;
registerhotkey(Form1.Handle, HotKeyID[i], 0, 115+i);
end; 

Answer 1

RegisterHotkey注册的是全局热键，在CheckBox的OnClick事件中判断，如果CheckBox->Checked = True，再执行RegisterHotkey注册F5热键，否则，UnregisterHotKey一下。

Answer 2

RegisterHotkey注册的是全局热键，在CheckBox的OnClick事件中判断，如果CheckBox->Checked = True，再执行RegisterHotkey注册F5热键，否则，UnregisterHotKey一下。