property OnTriggerTimer : TTriggerTimerEvent
TTriggerTimerEvent = procedure(
CP : TObject; TriggerHandle : Word) of object;
Defines an event handler that is called when an Async Professional CLX timer expires.
CP is the TApxComPort component that generated the trigger. TriggerHandle is the handle number returned when the trigger was added.
Note that timer triggers are not self-restarting. The event handler must call SetTimerTrigger again to reactivate the trigger as needed.
The following example adds and activates two timer triggers. After 10 seconds and 60 seconds elapse, events are generated and handled by ApxComPortTriggerTimer.
Timer1, Timer2 : Word;
...
Timer1 := ApxComPort.AddTimerTrigger;
Timer2 := ApxComPort.AddTimerTrigger;
ApxComPort.SetTimerTrigger(Timer1, 10000, True);
ApxComPort.SetTimerTrigger(Timer2, 60000, True);
...
procedure TMyForm.ApxComPortTriggerTimer(
CP : TObject; TriggerHandle : Word);
begin
if TriggerHandle = Timer1 then begin
...handle 10 second timeout condition
{restart timer}
ApxComPort.SetTimerTrigger(Timer1, 10000, True);
end else begin
...handle 60 second timeout condition
{restart timer}
ApxComPort.SetTimerTrigger(Timer2, 60000, True);
end;
end;
See also: AddTimerTrigger, SetTimerTrigger