Class TBlinkLabel (unit BlinkLbl)

Inherits from

TLabel

Constructors


constructor Create(AOwner:TComponent);

user defined timer event


Functions

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


Properties

property Blink : Boolean


property BlinkInterval : Word


property Transparent :


Events

event OnBlink : TNotifyEvent

User defined event

Variables

FBlink : Boolean;


FBlinkInterval : Word;

Make the label blink or not

FOnBlink : TNotifyEvent;

Standard timer component

FTimer : TTimer;

Time interval for blinking


Constructors


constructor Create(AOwner:TComponent);

user defined timer event


Functions


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


Properties


property Blink : Boolean


property BlinkInterval : Word


property Transparent :


Events


event OnBlink : TNotifyEvent

User defined event


Variables


FBlink : Boolean;


FBlinkInterval : Word;

Make the label blink or not


FOnBlink : TNotifyEvent;

Standard timer component


FTimer : TTimer;

Time interval for blinking