multithreading - 终止特定线程

Question

请大家在德尔福线程方面需要一些帮助。

在我的主窗体中，我放置了一个线程，如下所示：

  TMyThread = class(TThread)
  private
    ...
    ...
  protected
    procedure Execute; override;
  public
    constructor create(my_parameter:integer);
  end;

我的项目有第二种名为 frm_modulodeenvio 的表单，可以多次实例化，每次实例化表单时都会启动一个线程实例。

procedure Tfrm_modulodeenvio.FormCreate(sender: TObject);
begin
    FTMyThread := TMyThread.create(parameter);
end;

所以我可以打开表单的多个实例，每个实例都启动一个线程。现在我想在表单关闭时终止线程（仅终止由该表单启动的线程，而不终止线程的其他实例）。

我怎样才能做到这一点？

感谢您的帮助。

亚历山大。

标签： multithreadingdelphipascal