كيفية جعل TLabel يرمش clignoter

[xinofix]

[FONT=Arial]السلام عليكم
[FONT=Arial]_________________[/SIZE]

إخفاء وإظهار المكون حسب قيمة Interval

PHP كود :

TTimerTimer();
if label1.Visible then
   label1.Visible =  False else
   label1.Visible := True; 


كذلك يمكننا إخفاء وإظهار-رمش- عنوان الـForm

PHP كود :

TTimerTimer();
var mycaption: string;
begin
  mycaption := 'Net eXplorer 1.0';   {initialize the default form caption}
  if myform.Caption = '' then
    myForm.Caption := mycaption else
    myForm.Caption := '';
end; 


إظهار/إغلاق النوافذ بتأثيرات خاصة

PHP كود :

{ AnimateWindow(myform.handle, AnimSpeed, AnimEffect); }
 
  AnimateWindow(myform.handle, 2000, aw_slide);        {aw_slide, aw_center, aw_blend}