Class TAlarm (unit Alarm)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations

TAlarm



Functions

destructor Destroy;


procedure RunAlarm;

Protected declarations

procedure SetEnabled(Value: Boolean);

raise EOutOfResources.

procedure SetOnAlarm(Value: TNotifyEvent);


procedure SetSecond(Value: word);


procedure UpdateTimer;


procedure WndProc(var Msg: TMessage);


Properties

property AlarmEnabled : Boolean

Published declarations

property Hour : word


property Minute : word


property Second : word


Events

event OnAlarm : tNotifyEvent


Variables

FAlarmEnabled : Boolean;


FHour : word;

Private declarations

FMin : word;


FOnAlarm : TNotifyEvent;


FReserved : Byte;


FSec : word;


FWindowHandle : HWND;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

TAlarm


Functions


destructor Destroy;


procedure RunAlarm;

Protected declarations


procedure SetEnabled(Value: Boolean);

raise EOutOfResources.Create(LoadStr(SNoTimers));


procedure SetOnAlarm(Value: TNotifyEvent);


procedure SetSecond(Value: word);


procedure UpdateTimer;


procedure WndProc(var Msg: TMessage);


Properties


property AlarmEnabled : Boolean

Published declarations


property Hour : word


property Minute : word


property Second : word


Events


event OnAlarm : tNotifyEvent


Variables


FAlarmEnabled : Boolean;


FHour : word;

Private declarations


FMin : word;


FOnAlarm : TNotifyEvent;


FReserved : Byte;


FSec : word;


FWindowHandle : HWND;