請問各位前輩,我要在多執行序中動態宣告一個timer 並且在其ontime事件執行某件事,我應該要如何做? 請各位前輩教教我啊!~~謝謝

引言: 請問各位前輩,我要在多執行序中動態宣告一個timer 並且在其ontime事件執行某件事,我應該要如何做? 請各位前輩教教我啊!~~謝謝 < face="Verdana, Arial, Helvetica"> chungho_chang 你好: 小弟我覺得你的問題有點奇怪< >，是否能夠麻煩你詳細說明自己的目的、條件 、想法?? 或許會有更簡單的做法吧< > -- Enjoy Researching & Developing --

這是以前在學 Delphi 的 code, 在 BCB 中觀念也是一樣, 自己轉一下吧! Enjoy it!  < class="code"> procedure TMT.Execute; begin { Place thread code here } f1stNum := 10; SetTimer(0, 0, 10000, @TMT.myTimerProc); while GetMessage(wMsg, 0, 0, 0) do begin TranslateMessage(wMsg); DispatchMessage(wMsg); end; end; procedure TMT.myTimerProc(hwnd : HWND; uMsg, idEvent : UINT; dwTime :DWORD); begin f2ndNum := f1stNum; end;

Use TimeSetEvent WaitForSignalObject/WaitForMultipleObjects

節錄自 expertsXexchange, 可以參考一下

type
 TMyThread = class(TThread)
 private
   FEvent: THandle;
   f2ndNum: Integer;
   f1stNum: Integer;
 public
   procedure Execute; override;
   procedure TerminateEx;
 end;     TForm1 = class(TForm)
   TerminateThreadBtn: TButton;
   CreateThreadBtn: TButton;
   procedure TerminateThreadBtnClick(Sender: TObject);
   procedure CreateThreadBtnClick(Sender: TObject);
 private
   { Private-Deklarationen }
 public
   { Public-Deklarationen }
 end;    var
 Form1: TForm1;
 MyThread: TMyThread;    implementation    {$R *.DFM}    procedure TMyThread.TerminateEx; 
begin 
 Terminate; 
 // tell thread to terminate
 SetEvent(FEvent);
end;    procedure TMyThread.Execute;
begin
 FEvent := CreateEvent(nil, False, False, nil);
 try
   while not Terminated do
   begin
     // wait 3000ms or break if terminated (FEvent)
     if WaitForSingleObject(FEvent, 3000) = WAIT_OBJECT_0 then
     begin
       Break;
     end;
     MessageBeep(1);
     // ... one MessageBeep is enough         f2ndNum := f1stNum;         Break;  // comment for polling
   end;
 finally
   CloseHandle(FEvent);
 end;
end;    procedure TForm1.TerminateThreadBtnClick(Sender: TObject);
begin
 MyThread.TerminateEx;
end;    procedure TForm1.CreateThreadBtnClick(Sender: TObject);
begin
 // create thread (suspended)
 MyThread := TMyThread.Create(false);
end;    end.