全局热键的问题。

[ymxuymxu]

要实现的功能为：按F11停止，按F10运行repeat...until中间的代码，编译时按F10能执行repeat...until之间的代码，但按下F11后并不会停止，没有跳出循环，仍然执行repeat...until中间的代码，我这样做为什么不行？各位大虾有会好办法没？

F10　F11已经注册为热键。

procedure TForm1.hotkey(var msg:tmessage); //热键响应事件
var
bool:boolean;
begin
if msg.LParamHi=vk_f11
then bool:=true;
if msg.LParamHi=vk_f10
then begin
repeat
.....
until bool=true;
　　 end;
end;

[ymxuymxu]

问下２楼的，你那个代码里面的ifexit 是什么意思？

[ymxuymxu]

我试了一下，把２楼的代码加到我的代码中，不行啊，可能是我没加对，具体怎么加啊，拜托了，谢谢。

[一如当初]

在循环里加上 Application.ProcessMessages; 试试

[hongss]

同意楼上的。

死循环的循环体内加上Application.ProcessMessages;试试。

我用

  while True do
  begin
    Application.ProcessMessages;
    if IfExit then break;
    Working;
  end;

是可以的

[rainychan2009]

同意LZ上，主线程一直跑，就无法及时响应外部的东西

[ymxuymxu]

倒底怎么用啊，那位说一下？