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;