线程里面的消息循环

                            
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;  
   
  我想知道为什么线程里面的消息循环不能运行,谢谢

查看回复