Class TRealAlarm (unit ralarm)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure RunAlarm(Sender: TObject);


procedure SetActive(State: Boolean);


procedure SetAlarmTime(Tm: string);


Properties

property Active : Boolean


property AlarmTime : string


property ShowObject : TControl


Events

event OnAlarm : TNotifyEvent


Variables

FActive : Boolean;


FAlarmTime : string;


FHour : Word;


FMin : Word;


FMlSec : Word;


FOnAlarm : TNotifyEvent;


FSec : Word;


FShowObject : TControl;


FTimer : TTimer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure RunAlarm(Sender: TObject);


procedure SetActive(State: Boolean);


procedure SetAlarmTime(Tm: string);


Properties


property Active : Boolean


property AlarmTime : string


property ShowObject : TControl


Events


event OnAlarm : TNotifyEvent


Variables


FActive : Boolean;


FAlarmTime : string;


FHour : Word;


FMin : Word;


FMlSec : Word;


FOnAlarm : TNotifyEvent;


FSec : Word;


FShowObject : TControl;


FTimer : TTimer;