如題,謝謝.

那個TRHRAD 是你產生的嗎? 假如是的話 哪可以在Create 的時候設依個全域變數加一 然後再ASSIGN 一個onTermi.. 的事件,然後在哪個事件 中將那個全域變數減一就好啦.之後就可以在要CREATE 的時 後判斷有沒有超過你的期望值就好了,假如超過了就不要CREATE 就好啦 ---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

請問要怎麼ASSIGN 一個onTerminate的事件?    

引言: 那個TRHRAD 是你產生的嗎? 假如是的話 哪可以在Create 的時候設依個全域變數加一 然後再ASSIGN 一個onTermi.. 的事件,然後在哪個事件 中將那個全域變數減一就好啦.之後就可以在要CREATE 的時 後判斷有沒有超過你的期望值就好了,假如超過了就不要CREATE 就好啦 ---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //宣告一 TNotifyEvent 型態的Procedure
    procedure OnTerminateTEST(Sender:TObject); 
  end;
implementation
...
procedure TForm1.OnTerminate(Sender: TObject);
begin
// 看要做什麼寫在這裡
end;      with TThread.create(true) do
  begin
    OnTerminate := OnTerminateTEST ; //將你設定的Procedure 這裡指定給他
  end;
 

---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------