Class TTimeAlarmer (unit DFClasses)

Inherits from

TObject

Constructors


constructor Create;

TEventNotifier


Functions

procedure Add(Comp: TControl);


destructor Destroy;


procedure Remove(Comp: TControl);


procedure StartTimer;


procedure StopTimer;


function GetInterval: Integer;


procedure OnNotify(Sender: TObject);


procedure SetInterval( Val: Integer);

fOnStop: TNotifyEvent; fOnStart: TNotifyEvent;

Properties

property Controls : TObjectsList


property Interval : Integer


Events

Variables

fCmpList : TObjectsList;


fTimer : TTimer;



Constructors


constructor Create;

TEventNotifier


Functions


procedure Add(Comp: TControl);


destructor Destroy;


procedure Remove(Comp: TControl);


procedure StartTimer;


procedure StopTimer;


function GetInterval: Integer;


procedure OnNotify(Sender: TObject);


procedure SetInterval( Val: Integer);

fOnStop: TNotifyEvent; fOnStart: TNotifyEvent;


Properties


property Controls : TObjectsList


property Interval : Integer


Events


Variables


fCmpList : TObjectsList;


fTimer : TTimer;