نسخة كاملة: سؤال بسيط من مبتدى
برمجة - شبكات - كمبيوتر - منتديات الفريق العربي للبرمجة > منتديات لغات البرمجة العام > منتدى مبرمجي Borland Delphi
كيف اجعل لون خلفية الفورم يتغير بين الأزرق والأحمر بواسطة تايمر
كود
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form1.Color = clred then
form1.Color := clblue
else
form1.Color := clred;
end;
begin
if form1.Color = clred then
form1.Color := clblue
else
form1.Color := clred;
end;
المرفق يقوم بنفس العملية
مشكور أخي فقد كنت أبرمج ب vb6 تم انتقلت الى vb.net + الدلفي لأن الدلفي لغة قوية وتستحق الجهد
لاشكر على واجب
المهم أن تكون قد وجدت ما تبحث
لو أردت الكود بالفيجوال بيزك
أيضاً قمت بإرفاق الملف
أرجو الأستفادة
المهم أن تكون قد وجدت ما تبحث
لو أردت الكود بالفيجوال بيزك
كود
Private Sub Timer1_Timer()
If Form1.BackColor = &HFF& Then
Form1.BackColor = &HFF0000
Else
Form1.BackColor = &HFF&
End If
End Sub
If Form1.BackColor = &HFF& Then
Form1.BackColor = &HFF0000
Else
Form1.BackColor = &HFF&
End If
End Sub
أيضاً قمت بإرفاق الملف
أرجو الأستفادة
إقتباس(rober @ Nov 15 2008, 07:39 PM) 
كود
Private Sub Timer1_Timer()
If Form1.BackColor = &HFF& Then
Form1.BackColor = &HFF0000
Else
Form1.BackColor = &HFF&
End If
End Sub
If Form1.BackColor = &HFF& Then
Form1.BackColor = &HFF0000
Else
Form1.BackColor = &HFF&
End If
End Sub
يمكن استبدال &HFF& و &HFF0000 بـvbRed و vbBlue لتكون اكثر وضوحاً للقارئ والمبرمج بعد ذلك
مشكور على التوضيح
بالنسبة للفجوال 6 والدوت نت فليست لدي صعوبات فقط انا جديد في الدلفي وجزاكم الله خيرا
هذه "نسخة - خفيفة" من محتويات الرئيسية للإستعراض الكامل مع المزيد من الصور والخيارات الرجاء إضغط هنا.