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

[HAFTARI]

السلام عليكم و رحمة الله تعالى وبركاته
بسرني أن أتقدم إليكم إخوتي بهذا المثال البسيط الذي يمكن من جعل TCaption يرمش -Clignote-

كود :

procedure TAFirst.Timer1Timer(Sender: TObject); var clignot:Boolean;// تسمية المتغيرات begin إذا كان المتغير صحيح يصبح خطأ و العكس clignot:=not clignot; إذا كان المتغير صحيح يصبح اللون المتستعمل هو الأحمر if clignot then Caption1.Font.Color:=clRed إذا كان العكس else اللون المستعمل هو الأسود Label1.Font.Color:=clBlack ; end;

أتمنى أن يفيدكم إحوتي هذا المثال

[merouane]

السلام عليكم

فكرة جميلة

لو تسمحلي بعرض فكرتي -- الهدف بلوغ Optimized

كود :

procedure TForm1.Timer1Timer(Sender: TObject); begin with label1.Font do if Color = ClRed then color := clBlack else color := clred end;

بتعاون الجميع نحصل على نتائج أفضل

تحياتي

[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} 


[nabilkeb]

كود :

var clignot:Boolean;// تسمية المتغيرات begin إذا كان المتغير صحيح يصبح خطأ و العكس clignot:=not clignot; إذا كان المتغير صحيح يصبح اللون المتستعمل هو الأحمر if clignot then [COLOR=Blue]Caption1.[/COLOR]Font.Color:=clRed إذا كان العكس else اللون المستعمل هو الأسود [COLOR=Blue]Label1.[/COLOR]Font.Color:=clBlack ;

انتبه للكود .

[abualmonther]

PHP كود :

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if Label3.Font.Color=clBlack then Label3.Font.Color:=clRed
  else
Label3.Font.Color:=clBlack
end; 


[paix144]

السلام عليكم
و هذا كود آخر

كود :

procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Visible:=not(label1.Visible); end; procedure TForm1.FormCreate(Sender: TObject); begin timer1.Interval:=500; end;