| Class TBlinkLabel (unit BlinkLbl) |
TLabel
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
destructor Destroy;
procedure BlinkEvent;User defined event that will be called
procedure TimerFired(Sender :TObject);
procedure SetBlink(Value : Boolean);
procedure SetInterval(Value : Word);Make the label transparent
| Properties |
property Blink : Boolean
property BlinkInterval : Word
property Transparent : | Events |
event OnBlink : TNotifyEvent| Variables |
FBlink : Boolean;
FBlinkInterval : Word;
FOnBlink : TNotifyEvent;
FTimer : TTimer;| 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 : TNotifyEventUser defined event
| Variables |
FBlink : Boolean;
FBlinkInterval : Word;Make the label blink or not
FOnBlink : TNotifyEvent;Standard timer component
FTimer : TTimer;Time interval for blinking