delphi 里怎样主动关闭已创建的线程?

2025-04-03 18:28:05
推荐回答(1个)
回答1:

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