يعرض برنامج Windows المكتوب بعناية احتياطات بدء التشغيل ، تسمى شاشة Splash. باستخدام القليل من المحتوى ، يمكنك إضافة الكثير من الألوان إلى عرض البرنامج.
نظرًا لأن المشروع نفسه ينشئ النافذة الرئيسية للبرنامج ويجب أن تظهر شاشة بدء التشغيل قبل إنشاء النافذة الرئيسية ، يجب على ملف المشروع إنشاء شاشة بدء التشغيل الخاصة به. هذا يعني أنه يجب على المستخدم تعديل التعليمات البرمجية المصدر لإنشاء ملف المشروع ، والذي عادةً ما يكون مطلوبًا في برمجة Delphi. تقدم العملية التالية عملية إعداد شاشة الثرثرة.
1. ابدأ مشروعًا جديدًا. قم بتسمية النموذج الرئيسي وتعيين خاصية Caption الخاصة به على Splashindemo. احفظ هذا المشروع في دليل ، مثل C: Projectsplashin. قم بتسمية وحدة Mainform الرئيسية وتسمية ملف Project Splashin.
2. أدخل مكون زر في Mainform. قم بتغيير خاصية اسم الزر إلى Exitbutton ، وخاصية التسمية التوضيحية للخروج. قم بإنشاء معالج لحدث OnClick لـ Exitbutton ، وإدراج بيان وثيق بين الكلمات الرئيسية الأولى للعملية.
3. حدد أمر File | New Form ، أو انقر فوق زر سرعة النموذج الجديد. أضف نموذجًا جديدًا.
4. تغيير خاصية اسم هذا النموذج إلى SplashForm وحذف خاصية التسمية التوضيحية. بالإضافة إلى ذلك ، قم بتغيير خاصية BorderStyle إلى Bsnone ، ووضع القيم الفرعية الثلاثة تحت الحدود إلى False.
5. حفظ هذا المشروع. عندما تطالب Delphi بالقارئ لتوفير اسم ملف الوحدة ، تأكد من أن الدليل الحالي هو الدليل الصحيح. أدخل Splash للحصول على اسم ملف SPLASHFORM.
6. تعيين خاصية ممكّنة من splashform إلى false. هذه واحدة من الحالات النادرة التي لا يرغب المستخدمون فيها في توفير أوامر لوحة المفاتيح والماوس إلى Windows. في هذا المثال ، نريد أن يكون لدى البرنامج التحكم الكامل في عرض SplashForm.
7. نظرًا لأن النافذة لا تحتوي على مخطط تفصيلي ، أدخل كائن مكون شطكي من فئة المكون الإضافية. هذا يساعد على تحديد حواف النافذة. اضبط خاصية محاذاة Bevel1 على Alclient. في الوقت نفسه ، قم بتغيير خاصية الشكل للكائن إلى BSFrame وتغيير خاصية الأسلوب إلى BSraised. يتم تحديد هذه القيم من قبل المستخدم.
8. أدخل المكونات التي تريد استخدامها في splashform ، لا تقم بإدخال أي أزرار أو عناصر تحكم تفاعلية أخرى هنا. يعرض التطبيق نفسه مربع الحوار START START.
9. حدد قائمة المشروع. تسليط الضوء على قائمة Splash Project المنبثقة. حدد أمر الخيارات. في مربع حوار خيارات المشروع التي تم إنشاؤها ، حدد تسمية صفحة النماذج. لاحظ أن mainform و splashform موجودون في قائمة النماذج التي تم إنشاؤها تلقائيًا. قم بتمييز كل نموذج وانقر فوق زر الماوس الأيمن لنقله إلى النموذج المتاح. يتم إنشاء جميع نماذج Delphi تلقائيًا في الذاكرة في وقت التشغيل ، والتي تستهلك موارد الذاكرة والنظام. في مثل هذه الحالة ، يقوم البرنامج بإنشاء النموذج في وقت التشغيل ، ويجب على القارئ حذف النموذج من القائمة التي تم إنشاؤها تلقائيًا. أغلق نافذة ProjectOptions.
10. بعد ذلك ، قم بتعديل رمز مصدر المشروع لعرض مربع الحوار الضيق قبل عرض النافذة الرئيسية. هنا تحتاج إلى إدراج عبارات في ملف المشروع لمطابقة ملف مشروع splash.dpr. رمز مصدر المشروع كما يلي:
برنامج Project3 ؛
يستخدم
الأشكال ،
الرئيسي في 'main.pas' {mainform} ،
Splash in 'Splash.pas' {splashform} ؛
{$ r *.res}
يبدأ
splashform: = tsplashform.create (application) ؛
splashform.show ؛
splashform.update ؛
application.createform (tmainform ، mainform) ؛
splashform.close ؛
application.run ؛
نهاية.
11. إذا تم تجميع البرنامج وتشغيله في هذا الوقت ، فسيتم عرضه وإزالة مربع حوار بدء التشغيل بسرعة كبيرة ، بحيث لا تتاح للمستخدم فرصة رؤيته. لإجبار مربع الحوار على البقاء مرئيًا لبضع ثوانٍ ، حدد الشكل الرئيسي للبرنامج. إنشاء معالج لأمر onCreate للنموذج. إضافة متغير عدد صحيح طويل يسمى وقت التوقف قبل الكلمة الرئيسية. أدخل بيانين بين البداية والنهاية: واحد هو مكالمة لوظيفة Windows GetTickCount. تعيين وقت التوقف إلى عدد الثواني التي يعمل بها Windows ؛ قائمة البرامج كما يلي:
الوحدة الرئيسية ؛
واجهة
يستخدم
Windows ، الرسائل ، sysutils ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ، الحوار ،
stdctrls
يكتب
tmainform = فئة (tform)
exitbutton: tbutton ؛
الإجراء exitbuttonclick (المرسل: tobject) ؛
Formcreate الإجراء (المرسل: TOBJECT) ؛
خاص
{إعلانات خاصة}
عام
{الإعلانات العامة}
نهاية؛
var
mainform: tmainform ؛
تطبيق
{$ r *.dfm}
الإجراء tmainform.exitbuttonclick (المرسل: tobject) ؛
يبدأ
يغلق؛
نهاية؛
الإجراء tmainform.formcreate (المرسل: tobject) ؛
var
وقت التوقف: Longint ؛
يبدأ
وقت التوقف: = getTickCount Div 1000 ؛
بينما ((getTickCount Div 1000) < (توقف+2)) تفعل
النوم (1) ؛
نهاية؛
نهاية.
12. اضغط F9 لتجميع وتشغيل البرنامج.