线程里面的消息循环

Question

procedure TMyThread.Execute;
var
  Msg: TMsg;
begin
  FreeOnTerminate := True;
  Form1.Caption := 'a';
  //SendMessage(Application.Handle, WM_CLOSE, 0, 0);
  while GetMessage(Msg, 0, 0, 0) do
  begin
    Form1.Caption := 'b';
    if FindWin = True then
      Form1.Panel1.Caption := '找到了窗体';
  end;
end;我想知道为什么线程里面的消息循环不能运行,谢谢

Answer 1

while 一个条件的啊  没条件如何循环~~~

Answer 2

while GetMessage(Msg, 0, 0, 0) do  这个就是条件,他的条件是当消息中收到WM_QUIT时,就不循环,如果没有收到这个消息就一直循环下去.

Answer 3

如果你硬是要加入条件的话就应该是这样的吧while GetMessage(Msg, 0, 0, 0) = True do