هذا مثال بسيط لإنشاء شاشة ترحيب (شاشة دخول) برنامج
لنبدأ .... بسم الله- افتح دلفي 7 سينشئ مشروعا تلقائيا مرفق بــ Form1
- أضف Form آخرًا كما في الصورة :
ستحصل على الصورة :
نأتي الآن إلى تحديد خصائص الــ FORM2 الذي نحوله إلى شاشة الترحيب :
هذه الخصائص هي بالأهمية بما كان حيث أنها تحدد التموضع على سطح المكتب وكيفية ظهور الفورم وأبعاده عند تنفيذ البرنامج.
1- التسمية : Name نسمي القورم مثلا : SPLASH كما في الصورة :
2- نحدد بعض الخصائص الأخرى كما في الصورة
المرحلة الثالثة هي وضع الصورة على الفورم:
- نضيف صورة إلى الفورم كالآتي :
وبعد التغييرات حسب الحاجة تحصل على:
أخيرا المرحلة الرابعة مرحلة كتابة الكود :
نحدد الفورم Form1 ننقر مرتين عليه فتظهر شاشة الكود على الحدث FORMCREATE
نضيف الكود الآتي في المكان المحدد بسهم
كود:
Splash := TSplash.Create(Application);
Splash.show;
Splash.*******;
for i:= 1 to 250 do
begin
sleep(10);
end;
Splash.free;
فنحصل على :
عند تنفيذ البرنامج بالضغط على المفتاح F9 أو بالنقر على السهم الأخضر كما في الصورة :
يظهر الحوار الذي يطلب منك إضافة الفورم 2 إلى قائمة استعمالات الفورم 1 Uses]
نجيب
بنعم ثم نعيد تنفيذ البرنامج من جديد بالضغط على F9
وأخيرا تظهر شاشة الترحيب في وسط الشاشة لبعض اللحظات
ثم تختفي لتظهر بعدها الفورم 1 وهو الخاص بالبرنامج الذي يحتوي على القائمة الرئيسية
وهذا مثال عن الشاشة الرئيسية لبرنامج الكشوف المدرسية
أخيرا التمسو عذرا لأخيكم لأنه ربما نسي بعض التفاصيل المهمة