Newsgroups : Borland : borland.public.delphi.nativeapi.win32 : 2007 Mar : 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;