mahmodemos
V.I.B
أهلاً بكل زوار موضوعي و بكـل من أنــار الموضـوع بردوده ...
و مرحباً بكـل زوار منتدى صقور الابداع ...
وأهلا بكل زوار هذا المنتدى الموقرين ...
كيف حالكم ؟ إن شاء الله تكونوا بألف صحة وعافية ...
مع كل اطلالة , نعود لكم بكل جديد ومفيد في نفس الوقت فليس هدفنا سوى ...
>> الافادة و الاستفادة <<
[/IMG]
من اول ما بدأت تعلم دلفي كنت ابحث عن شرح عمل سبلاش سكرين لكن عند الطلب يعطوني سورسات وما اعرف كيف يعملو السبلاش سكرين
المهم تذكرت الموضوع الاسبوع الماضي فقلت اسوي شرح لان هذا الموضوع عليه اقبال كبير وبحث قوي
ليس ذلك فقط ولكن لها دور آخر، خاصة في التطبيقات التي يحتاج تشغيلها إلى بعض الوقت، حيث يصبح دورها شغل المستخدم طيلة فترة تحميل البرنامج وربما بينت مراحل التحميل أيضا.
ولكنها تختفي تلقائيا بمجرد التحميل الكامل للبرنامج.
تريد واحدة لبرنامجك ؟
حسنا.
حتى إذا كان برنامجك لا يجهد الحاسوب فلا تبخل عليه بمثل هذه المقدمة. وبإمكانك إعدادها في أي مرحلة من مراحل التطوير، غير أنه يستحسن تأخيرها حتى لا تعيق تنفيذ البرنامج أثناء المراحل التجريبية. توكل على الله:
1-أنشئ تطبيقك بشكل عادي.
2-أضف شاشة Form نقترح أن تسميها SplashScreen ثم قم بتمييزها لتمثل المقدمة كأن تضع عليها صورة مثلا.
ملاحظة
لنتائج أفضل ينصح باستعمال صورة نقطية BMP
3-ضع خاصية BorderStyle في bsNone لتثبيت الشاشة ومنع المستخدم من تحريكها أوإغلاقها.
4-هذه الشاشة ليست عادية لذلك ستتولى أنت عملية إنشائها، لذلك :
- إذهب إلى Project/Options من القائمة الرئيسية.
- في الصفحة Forms ستشاهد قائمتين: على اليسار: الشاشات المعدة آليا، وعلى اليمين: الشاشات التي يعدها المبرمج.
- حدد شاشتك وانقلها إلى القائمة على اليمين ثم اضغط على موافق. بهذه الطريقة أصبح Delphi لا يراها.
5-الآن سنبرمج قليلا
- بما أن الشاشات يتم إنشائها في الملف الرئيسي للبرنامج -DPR- سننتقل إليه لنقوم بالعمل : من القائمة الرئيسية إذهب إلى: Project/ View Source.
- ستلاحظ أن شاشتك توجد ضمن قائمة الشاشات في USES ولكن لا توجد تعليمة لإنشائها مثل:
Application.CreateForm(TSplashScreen, SplashScreen);
- كما سبق أن قلنا: Delphi لا يستطيع التحكم في شاشتنا لذلك سنعرفه عليها:
var SplashScreen: TSplashScreen;
- كي تتصدر شاشتنا جميع الشاشات يجب أن تكون الأولى إنشاءا .
ولكن عليها أن تنشئ نفسها كما يلي:
Application.Initialize;
SplashScreen := TSplashScreen.Create(Application);
- ثم علينا إضهارها:
SplashScreen.Show;
- قد لا تضهر شاشتنا بشكل جيد خاصة إذا احتوت على صورة وكانت مدة تحميل البرنامج قليلة لذلك علينا إجبارها - لنقل مساعدتها- على الضهور وذلك بتحديث محتواها:
SplashScreen.Update;
- أصبحت شاشتنا جاهزة ! ولكن دورها ينتهي عندما يتم إنشاء جميع الشاشات في الذاكرة لذلك ستغادرنا قبل تنفيذ البرنامج أي قبل التعليمة Application.Run :
SplashScreen.Close;
- ذلك لا يكفي فعلينا إخلاء الذاكرة المحجوزة لشاشتنا بأنفسنا لأننا تولينا عملية إنشائها:
SplashScreen.Release;
6- لم يبق ولله الحمد إلا التنفيذ: F9
-7- قد تتفاجأ عندما لا تشاهد الشاشة التي تعبت في إعدادها لقد تسارعت الأحداث- كما هي الحال دائما- لأن برنامجنا خفيف ضريفTON: إليك هذه الحيلة: قم بتعطيل إنشاء الشاشة الرئيسية بعض الوقت لتسمح لشاشة المقدمة بأن تعرض نفسها قليلا. في حدث إنشاء الشاشة الرئيسية أدخل الكود التالي:
procedure TForm1.FormCreate(Sender: TObject);
begin
Sleep(2000);
end;
بهذه الطريقة سيخمد تنفيذ البرنامج لثانيتين وستشاهد أثنائها شاشتك SplashScreen.
للتوضيح هذا سورس لمن لم يفهم الموضوع
الشرح فيديو كان بودي اعمل شرح مصور ايضا لكن للأسف ضيق في الوقت
لا اطيل عليكم
وهدا بالفيجول بيسك
مدة الشرح : 18:15
هنا تحميل الشرح
أرجو ان يعجبكم الشرح
واي سؤال او استفسار ضعه بدون تردد :SnipeR (36):
الإهدائات :
ddt
كماتا
لكل من دخل الموضوع :SnipeR (37):
التعديل الأخير بواسطة المشرف:
