怎样在一个循环里测试有否键输入，有的话就break??

Question

怎样在一个循环里测试有否键输入，有的话就break??(delphi有否inkey函数？)

Answer 1

有的控件有OnKeyDown()、OnKeyUp()等事件，可以在里面写入测试代码。

Answer 2

var
msg:tmessage;
begin
  while true do
  begin
    if getmessage(msg,0,0,0) then
    begin
      if msg.message=wm_keydown then
        ；//有按键消息。
      if 你愿意处理这个消息 then
      begin
        translatemessage(msg);
        dispatchmessage(msg);
      end;
    end
    else
      exitprocess(0);
  end;
end;

Answer 3

关键是在循环中加入:Application.ProcessMessages;

Answer 4

声明Boolean变量Key_Event,赋初值False.在按键事件中为Key_Event赋值True,利用过程ProcessMessages检测Windows消息.在循环中加入如下代码：
………………
ProcessMessages;
if Key_Event=True then Break;
………………