procedure TMyThread.execute;begin while not Terminated do //Note: not "Thread1.Terminated" . //Note: 一般来说,TThread的Execute 的框架就是如许的。 begin . . . 你的履行代码 。 . end;end;停止: Thread1.Terminate; Thread1.WaitFor; //等待停止。 查看原帖>>