دخول

HAFTARI · 27-02-2008, 06:04 PM

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

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة