delphi4arab منتديات دلفي للعرب

السلام عليكم و رحمة الله تعالى وبركاته
بسرني أن أتقدم إليكم إخوتي بهذا المثال البسيط الذي يمكن من جعل 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;

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

السلام عليكم

فكرة جميلة

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

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

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

تحياتي Smile

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

إقتباس :
كود :
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 ;

انتبه للكود .

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

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

كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin

label1.Visible:=not(label1.Visible);
end;

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

HAFTARI

merouane

xinofix

nabilkeb

abualmonther

paix144