الموضوع: الدرس الرابع لغة البرمجة دلفي

السلام عليكم اخواني الكرام نلتقي مجددا في درسنا الرابع للغة البرمجة دلفي وسنبدا كالعادة من حيث انتهينا في الدرس السابق
واليوم ايضا سنستهل الدرس بمثال ايضا وسنتدرب على بعض المكونات وبعض الخصائص
أنشاء مشروع جديد ثم قم بوضع العناصر التالية على الفورم
1. 3 عناصر RadioButton
2. 1 عنصر Panel
3. عنصر Button
4. عنصر GroupBox
ثم قم بتنسيقها كما هو مبين على الصورة

غير خصية Caption للمكونات التالية إلى
1. Panel إلى فراغ()
2. Button إلى (غير اللون )
3. GroupBox (خيارات الألوان)
4. RadioButton1 إلى (اخضر)
5. RadioButton2 إلى (ازرق)
6. RadioButton3 إلى (احمر)
كما هو مبين في الصورة التالية

نريد من مثالنا وبكل بساطة التحكم في لون Panel برمجيا
لذا سنكتب الكود التالي ننقر على الزر نقرا مزدوجا واكتب هذا الكود

وكما ترون إنني قد قسمة هذا الكود بثلاث ألوان كما هو مبين في الصورة لكي أسهل عملية شرح الكود
1. الكود في المستطيل الأخضر نضع شرط إذا كان زر الراديو RadioButton1 هو المؤشر مفعل
فان اللوحة Panel تأخذ اللون الأخضر
2. الكود في المستطيل الأزرق نضع شرط إذا كان زر الراديو RadioButton2 هو المؤشر مفعل
فان اللوحة Panel تأخذ اللون الأزرق
3. الكود في المستطيل الأحمر نضع شرط إذا كان زر الراديو RadioButton1 هو المؤشر مفعل
فان اللوحة Panel تأخذ اللون الأحمر
الآن نفذ البرنامج وقم بتجربته
ننتقل إلى المثال الثاني
وكالعادة افتح مشروع جديد وقم بوضع العناصر التالية على الفورم
1. 3 Label
2. 1Panel
3. 3 checkBox
4. 1 Button
ثم قم بتنسيقها كما في الصورة التالية

ثم غير خاصية Caption للمكونات التالية إلى
1. 1 Label إلى (منتديات)
2. Label2 إلى (جامع)
3. Label3 إلى ( العلوم )
4. Panel1 إلى فراغ ()
5. 1 checkBox إلى (إظهار الكتابة)
6. 2 checkBox إلى (تغيير لون الخط)
7. 3 checkBox إلى (ترتيب)
لتبدو كما هي في الصورة


حدد عناصر Label وأعطي للخاصية Visible القيمة False
سنقوم هنا بإظهار السطور تبعا مع إمكانية تغيير اللون ونقل الكتابة دفعة واحدة وهنا يتجلى الفرق بين المكونين checkBox و RadioButton لذا سنكتب هذا الاكواد
انقر نقرا مزدوجا على checkBox1 واكتب

سنشرح هذا الكود ثم نكمل تباعا
1. يعنى إذا كان هذا المكون وهو checkBox1مفعلا فقم بالتالي
2. قم بإظهار المكون lable1
3. قم بإظهار المكون lable2
4. قم بإظهار المكون lable3
في حالة لم يكن مفعلا فقم
5. قم بإخفاء المكون lable1
6. قم بإخفاء المكون lable2
7. قم بإخفاء المكونlable3
تم انقر نقرا مزدوجا على checkBox2 واكتب

الشطر الثاني من الكود
8. يعنى إذا كان هذا المكون وهو2 checkBoxمفعلا فقم بالتالي
9. قم بتلوين المكون lable1 باللون الأحمر
10. قم بتلوين المكون lable2 باللون الأحمر
11. قم بتلوين المكون lable3 باللون الأحمر
في حالة لم يكن مفعلا فقم
12. قم بتلوين المكون lable1 باللون الأسود
13. قم بتلوين المكون lable2 باللون الأسود
14. قم بتلوين المكون lable3 باللون الأسود
الشطر الأخير من الكود
انقر نقرا مزدوجا على checkBox3 واكتب

15. يعنى إذا كان هذا المكون وهو3 checkBoxمفعلا فقم بالتالي
16. قم بنقل المكون lable1 إلى الوضعية 480
17. قم بنقل المكون lable1 إلى الوضعية 480
18. قم بنقل المكون lable1 إلى الوضعية 480
في حالة لم يكن مفعلا فقم
19. قم بنقل المكون lable1 إلى الوضعية 480
20. قم بنقل المكون lable1 إلى الوضعية 424
21. قم بنقل المكون lable1 إلى الوضعية 344
نفذ البرنامج وجربه لترى النتائج
وبهذا نكون قد انهينا درسنا لهذا اليوم ولنا لقاء في الدرس القادم بحول الله وقوته والسلام عليكم ورحمة الله وبركاته

السلام عليكم
ملاحظة بسيطة يمكن كتابت if CheckBox1.Checked then
كلمة ناقصة تطبيق اصغر واسرع

بسم الله الرحمان الرحيم
مشكور اخي عبد العالي ملاحظة جيدة
لكن اريد من المبتدئين ان يتعلموا تسلسل الكود يعني المكون ثم الخاصية ومن ثم الاجراء
الا تشاطرني الراي في هذا اخ عبد العالي ؟
تحياتي لك

نعم
صدفة

شكرا جزيلا على الجهد و بارك الله فيك
ووفقك الله ما دمت في خدمة العلم وأهله

merci