منتدى عشاق البرامج

منتدى عام للبرامج والبرمجة
 
الرئيسيةالبوابةاليوميةس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 مثال بسيط لإنشاء شاشة ترحيب (شاشة دخول) برنامج

اذهب الى الأسفل 
كاتب الموضوعرسالة
somame
Admin
Admin
avatar

المساهمات : 381
تاريخ التسجيل : 19/04/2008
العمر : 34

مُساهمةموضوع: مثال بسيط لإنشاء شاشة ترحيب (شاشة دخول) برنامج   الأحد يونيو 08, 2008 12:48 am

هذا مثال بسيط لإنشاء شاشة ترحيب (شاشة دخول) برنامج

لنبدأ .... بسم الله

- افتح دلفي 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 وهو الخاص بالبرنامج الذي يحتوي على القائمة الرئيسية



وهذا مثال عن الشاشة الرئيسية لبرنامج الكشوف المدرسية



أخيرا التمسو عذرا لأخيكم لأنه ربما نسي بعض التفاصيل المهمة
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://somame.mam9.com
 
مثال بسيط لإنشاء شاشة ترحيب (شاشة دخول) برنامج
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى عشاق البرامج :: منتدى البرمجة-
انتقل الى: