Newsgroups : Borland : borland.public.delphi.nativeapi.win32 : 2007 Mar : Event In Threads

www.cryer.info
Managed Newsgroup Archive

Event In Threads

Subject:Event In Threads
Posted by:"Tobias" (tobias_..@hotmail.com)
Date:Fri, 23 Mar 2007 10:50:22

Hello,

I need a event from another class to be triggerd in a thread is this
possible?
Is TMyThread.OnTimerEvent triggered inside the thread?
If not can i make it trigger inside the thread?

little code:

type TMyTimer = class
  private
   FTimer  TTimer;
   FSomeEvent : TNotifyEvent;
   procedure OnTimer(...);
   .
   .
   .
published
   property OnMyEvent : TNotifyEvent read FSomeEvent write  FSomeEvent;
end;

TMyThread = class(TThread)
   private
     FMyTimer : TMyTimer;
    WaitEvent : THandle;
     procedure OnTimerEvent(...);  // FMyTimer.OnMyEvent := OnTimerEvent;
   protected
      procedure Execute; override;
end;

procedure TMyTimer.OnTimer;
begin
  if Assigned(FSomeEvent) then
    OnMyEvent(...);
end;


procedure TMyThread.OnTimerEvent(...);
begin
  PulseEvent(WaitEvent);
end;

procedure TMyThread.Execute;
begin
  while (not Terminated) do begin
      WaitForSingleObject(WaitEvent, Infinite);
      .
      .
  end;
end;

Replies:

www.cryer.info
Managed Newsgroup Archive