我想在執行時期產生TTimer元件 但我不知道如何去寫OnTimer這個event 請問執行時期產生的TTimer元件 如何去把一個procedure指定為它的OnTimer事件呢? 謝謝!

interface
  ...
  procedure YourTimer(Sender: TObject);
   
implementation
   
procedure TForm1.YourTimer(Sender: TObject);
begin
  // ...
end;
   
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TTimer.Create(Self) do
  begin
    Interval := 1000;
    OnTimer := YourTimer; // 指定 OnTimer Event
  end;
end;

-- Believe the unbelievable. 發表人 - hagar 於 2002/12/24 09:03:49

TForm1.Timer1Timer(Sender: TObject); begin if a=60 then// Button6Click(Sender); end;

------
======================
昏睡~
不昏睡~
不由昏睡~

hagar 版主 因為我是在建立Service Application 所以環境有點不同 我之前也試過你這個寫法 -->OnTimer := YourTimer; 但在編譯時,出現以下之錯誤： TNotifyEvent and procedure, untyped pointer or untyped parameter 真是頭大，請問還有別的方式嗎? 我想在 Service Application 中使用TTimer元件 謝謝.. ko.. 謝謝你，你的方式在 Service Application 中沒辦法用．． 不過還是真的很謝謝你

參考我這一篇問題看看: 如何在執行期動態指定 Events 所執行的程式? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=43274 我是雪龍

------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/

可以貼出您的程式碼嗎？ --- >@