Class TBlinkLabel (unit BlinkLbl) |
Inherits from
TLabel
constructor Create(AOwner:TComponent);
- user defined timer event
destructor Destroy;
procedure BlinkEvent;
Timer event User defined event that will be called
procedure TimerFired(Sender :TObject);
Prevent label from being invisible
When the blink becomes off
procedure SetBlink(Value : Boolean);
procedure SetInterval(Value : Word);
User defined event Make the label transparent
property Blink : Boolean
property BlinkInterval : Word
property Transparent :
event OnBlink : TNotifyEvent
User defined event
FBlink : Boolean;
FBlinkInterval : Word;
Make the label blink or not
FOnBlink : TNotifyEvent;
Standard timer component
FTimer : TTimer;
Time interval for blinking
constructor Create(AOwner:TComponent);
user defined timer event
destructor Destroy;
procedure BlinkEvent;
Timer event
User defined event that will be called
procedure TimerFired(Sender :TObject);
Prevent label from being invisible
When the blink becomes off
procedure SetBlink(Value : Boolean);
procedure SetInterval(Value : Word);
User defined event
Make the label transparent
property Blink : Boolean
property BlinkInterval : Word
property Transparent :
event OnBlink : TNotifyEvent
User defined event
FBlink : Boolean;
FBlinkInterval : Word;
Make the label blink or not
FOnBlink : TNotifyEvent;
Standard timer component
FTimer : TTimer;
Time interval for blinking