线程的OnTerminate事件如何写？

Question

procedure tthread.onterminate(sender:tobject);
好像不对

Answer 1

type
  TForm1 = class(TForm)
  private
    procedure OnT(Sender: Tobject);
  end;调用时：
  TThread.Create(..).OnTerminate:=OnT;

Answer 2

好象是写一个过程，然后让thread.onterminate等于这个过程。线程结束是执行的是这个过程里面的东西。

Answer 3

令onterminate：＝“事件结束时的代码”
例如onterminate＝：threaddone;
.........
.......'
procedure form1.threaddone(Sender: Tobject);
begin
form1.caption:=form1.caption+'线程结束';
end;

Answer 4

令onterminate：＝“事件结束时的代码”
例如onterminate;＝threaddone;
.........
.......'
procedure form1.threaddone(Sender: Tobject);
begin
form1.caption:=form1.caption+'线程结束';
end;