F7单步执行会出问题

                            
procedure   TMyThread.Execute;   
  var  
      Msg:   TMsg;  
  begin  
      while   GetMessage(Msg,   0,   0,   0)   =   True   do  
      begin  
          Form3.Caption   :=   '';  
      end;  
  end;  
   
  procedure   TForm3.FormCreate(Sender:   TObject);  
  begin  
      MyThread   :=   TMyThread.Create(False);  
  end;  
   
  你们用F7单步执行看看,为什么编译器不让执行.如果按F9来运行就不会.不明白

查看回复