| Class TMPTimerPool (unit MPTimer) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function Add(aOnTrigger: TMPTriggerEvent; aInterval: longint): integer;
function AddOnce(aOnTrigger: TMPTriggerEvent; aInterval: longint): integer;
function AddTimes(aOnTrigger: TMPTriggerEvent; aInterval, aMaxTimes: longint): integer;
procedure Remove(Handle: integer);
procedure RemoveAll;
function CalcNewHandle: integer;
procedure DoOnAllTriggers;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure CalcNewInterval;
function CheckHandle(Handle: integer): TComponent;
function ForEachEnabledTrigger(Proc: TTriggerIterator; Data: pointer): TComponent;
function ForEachTrigger(Proc: TTriggerIterator; Data: pointer): TComponent;
function GetElapsedTriggerTime(Handle: integer): longint;
function GetElapsedTriggerTimeSec(Handle: integer): longint;
function GetEnabledTriggerCount: integer;
function GetOnTrigger(Handle: integer): TMPTriggerEvent;
function GetOnTriggerDestroy(Handle: integer): TMPTriggerDestroyEvent;
function GetOnTriggerEnable(Handle: integer): TMPTriggerEnableEvent;
function GetTriggerCount: integer;
function GetTriggerEnabled(Handle: integer): boolean;
function GetTriggerInterval(Handle: integer): longint;
function GetTriggerTimes(Handle: integer): longint;
procedure SetOnTrigger(Handle: integer; Value: TMPTriggerEvent);
procedure SetOnTriggerDestroy(Handle: integer; Value: TMPTriggerDestroyEvent);
procedure SetOnTriggerEnable(Handle: integer; Value: TMPTriggerEnableEvent);
procedure SetTriggerEnabled(Handle: integer; Value: boolean);
procedure SetTriggerInterval(Handle: integer; Value: longint);
procedure SetTriggerTimes(Handle: integer; Value: longint);
procedure TimerEvent(Sender: TObject);| Properties |
property DefEnabled : boolean
property Count : integer
property ElapsedSeconds : longint
property ElapsedTime : longint
property Enabled : boolean
property EnabledCount : integer
property Interval : longint
property Times : longint| Events |
event OnAllTriggers : TMPTriggerEvent
event OnDestroy : TMPTriggerDestroyEvent
event OnEnable : TMPTriggerEnableEvent
event OnTrigger : TMPTriggerEvent| Variables |
FDefEnabled : boolean;
FOnAllTriggers : TMPTriggerEvent;
FTimer : TTimer;| Constructors |
constructor Create(AOwner: TComponent);if
| Functions |
function Add(aOnTrigger: TMPTriggerEvent; aInterval: longint): integer;
function AddOnce(aOnTrigger: TMPTriggerEvent; aInterval: longint): integer;
function AddTimes(aOnTrigger: TMPTriggerEvent; aInterval, aMaxTimes: longint): integer;if
procedure Remove(Handle: integer);
procedure RemoveAll;
function CalcNewHandle: integer;
procedure DoOnAllTriggers;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure CalcNewInterval;
function CheckHandle(Handle: integer): TComponent;
function ForEachEnabledTrigger(Proc: TTriggerIterator; Data: pointer): TComponent;for
function ForEachTrigger(Proc: TTriggerIterator; Data: pointer): TComponent;
function GetElapsedTriggerTime(Handle: integer): longint;
function GetElapsedTriggerTimeSec(Handle: integer): longint;
function GetEnabledTriggerCount: integer;
function GetOnTrigger(Handle: integer): TMPTriggerEvent;
function GetOnTriggerDestroy(Handle: integer): TMPTriggerDestroyEvent;
function GetOnTriggerEnable(Handle: integer): TMPTriggerEnableEvent;
function GetTriggerCount: integer;
function GetTriggerEnabled(Handle: integer): boolean;
function GetTriggerInterval(Handle: integer): longint;
function GetTriggerTimes(Handle: integer): longint;
procedure SetOnTrigger(Handle: integer; Value: TMPTriggerEvent);
procedure SetOnTriggerDestroy(Handle: integer; Value: TMPTriggerDestroyEvent);
procedure SetOnTriggerEnable(Handle: integer; Value: TMPTriggerEnableEvent);
procedure SetTriggerEnabled(Handle: integer; Value: boolean);
procedure SetTriggerInterval(Handle: integer; Value: longint);
procedure SetTriggerTimes(Handle: integer; Value: longint);
procedure TimerEvent(Sender: TObject);| Properties |
property DefEnabled : boolean
property Count : integer
property ElapsedSeconds : longint
property ElapsedTime : longint
property Enabled : boolean
property EnabledCount : integer
property Interval : longint
property Times : longint| Events |
event OnAllTriggers : TMPTriggerEvent
event OnDestroy : TMPTriggerDestroyEvent
event OnEnable : TMPTriggerEnableEvent
event OnTrigger : TMPTriggerEvent| Variables |
FDefEnabled : boolean;
FOnAllTriggers : TMPTriggerEvent;
FTimer : TTimer;