Class TTimeStop (unit NTimestp) |
Inherits from
TComponent
Renamed Neil Tarvin's Timestop.pas 6/7/1998 Paul Rice to avoid conflict with others' work.
constructor Create( AOwner : TComponent );
- Protected declarations
procedure Loaded;
Private declarations -------------------------------------------------------------------------
procedure SetDay( Value: integer );
-------------------------------------------------------------------------
procedure SetMonth( Value: integer );
-------------------------------------------------------------------------
procedure SetYear( Value: integer );
-------------------------------------------------------------------------
property Day : integer
Public declarations
property Month : integer
property ShowExpireMessage : boolean
property Text : string
property Year : integer
event OnExpire : TNotifyEvent
FDay : integer;
FMessage : string;
FMonth : integer;
FOnExpire : TNotifyEvent;
FShowExpireMessage : boolean;
FYear : integer;
constructor Create( AOwner : TComponent );
Protected declarations
procedure Loaded;
Private declarations
-------------------------------------------------------------------------
procedure SetDay( Value: integer );
-------------------------------------------------------------------------
procedure SetMonth( Value: integer );
-------------------------------------------------------------------------
procedure SetYear( Value: integer );
-------------------------------------------------------------------------
property Day : integer
Public declarations
property Month : integer
property ShowExpireMessage : boolean
property Text : string
property Year : integer
event OnExpire : TNotifyEvent
FDay : integer;
FMessage : string;
FMonth : integer;
FOnExpire : TNotifyEvent;
FShowExpireMessage : boolean;
FYear : integer;