Class

TCPRSTimeoutTimer

Module

uInit

Last Modified

7/15/2014 3:26:44 PM

Scope

Global

Inherits from

TTimer

Declaration


TCPRSTimeoutTimer = class(TTimer)
private
  FHooked: boolean;
  FUserCondition: TCPRSTimeoutTimerCondition;
  FUserAction: TCPRSTimeoutTimerAction;
  uTimeoutInterval: Cardinal;
  uTimeoutKeyHandle, uTimeoutMouseHandle: HHOOK;
protected
  procedure ResetTimeout;
  procedure timTimeoutTimer(Sender: TObject);
end;

Class Hierarchy


Class Fields

Name Type Scope Comments
FHooked Boolean Private -
FUserAction Private -
FUserCondition Private -
uTimeoutInterval Cardinal Private -
uTimeoutKeyHandle Simple (unknown) Private -
uTimeoutMouseHandle Simple (unknown) Private -

Methods

Name Declaration Scope Comments
ResetTimeout procedure ResetTimeout; Protected
TCPRSTimeoutTime 

 this restarts the timer whenever there is a keyboard or mouse event
timTimeoutTimer procedure timTimeoutTimer(Sender: TObject); Protected When the timer expires, the application is closed after warning the user

Referenced By (2)

Module (line) Referrer Type
uInit (46) timTimeout Read
uInit (102) - Read