请问如何在线程类的OnTerminate事件里写内容？

Question

请问如何在线程类的OnTerminate事件里写内容？
线程摧毁的时候会触发OnTerminate事件，请问我怎么能够在这个事件里面写代码？给个例子好吗？谢

Answer 1

OnTerminate是个对象方法,把个对象方法赋给它就行了,如下面,把ExecuteOnTerminate赋给了它  TTestThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FThread :TTestThread;
    procedure ExecuteOnTerminate(Sender:TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
{$R *.dfm}{ TTestThread }procedure TTestThread.Execute;
begin
  inherited;
  //...
end;procedure TForm1.ExecuteOnTerminate(Sender: TObject);
begin
  //...
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  //...
  FThread.OnTerminate := ExecuteOnTerminate;
  //...
end;

Answer 2

在ExecuteOnTerminate中能否加入参数传递呢？如果要加要怎样操作呢？