+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : كيفية جعل TLabel يرمش clignoter (/showthread.php?tid=62)
كيفية جعل TLabel يرمش clignoter - HAFTARI - 27-02-2008
السلام عليكم و رحمة الله تعالى وبركاته
بسرني أن أتقدم إليكم إخوتي بهذا المثال البسيط الذي يمكن من جعل 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;كيفية جعل TLabel يرمش clignoter - merouane - 27-02-2008
السلام عليكم
فكرة جميلة
لو تسمحلي بعرض فكرتي -- الهدف بلوغ Optimized
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
with label1.Font do
if Color = ClRed then color := clBlack
else color := clred
end;بتعاون الجميع نحصل على نتائج أفضل
تحياتي
كيفية جعل TLabel يرمش clignoter - xinofix - 27-02-2008
[FONT=Arial]السلام عليكم
[FONT=Arial]_________________[/SIZE]
إخفاء وإظهار المكون حسب قيمة Interval[FONT=Arial]_________________[/SIZE]
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}
كيفية جعل TLabel يرمش clignoter - nabilkeb - 20-12-2008
إقتباس :انتبه للكود .كود :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 ;
كيفية جعل TLabel يرمش clignoter - abualmonther - 18-03-2009
PHP كود :
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Label3.Font.Color=clBlack then Label3.Font.Color:=clRed
else
Label3.Font.Color:=clBlack
end;
كيفية جعل TLabel يرمش clignoter - paix144 - 09-09-2009
السلام عليكم
و هذا كود آخر
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Visible:=not(label1.Visible);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=500;
end;