كيف تنشئ شاشة افتتاحية , بثلاثة أسطر أكواد فقط

بسم الله الرحمن الرحيم

شاهدت موضوعاً لعمل شاشة افتتاحية Splash Screen في Delphi

لكنه معقد جدا , ويتطلب منك عمل إعدادات للمشروع ولظهور النماذج

إضافة إلى كثرة الأكواد والاوامر

لذا , جربت طريقة بسيطة , كنت أستعملها في Visual Basic

وهي :

1/ أنشئ Form1 وضع فيه ما تشاء من صورة , لأنه سيكون الشاشة الافتتاحية

2/ ضع على Form1 أداة Timer (تجدها في التبويب System في شريط الادوات) , ولا تعدل خصائصها

3/ من قائمة File , اختر New ثم اختر Form

4/ افتح نافذة الكود الخاصة بـForm1 , واكتب بعد كلمة implementation , مباشرة الأمر التالي :

uses unit2;

5/ في الحدث :

TForm1.Timer1Timer(Sender: TObject)

اكتب بعد كلمة begin :

form2.Show;
timer1.Enabled := false;
form1.hide;

هذا فقط

قد يواجهك خطأ , إن قمت بكتابة form2.Show قبل وضع uses unit2

Style جديد لبرامجك (Delphi)

بسم الله الرحمن الرحيم

هل سئمت من Style تطبيقاتك في Delphi 7 ؟

هل تضر دائما إلى إضافة مكتبات ووحدات إلى المشروع لتجميله ؟

يمكنك الآن عمل Style لتطبيقات , بنفس نمط XP ,, ودون الحاجة إلى أي مكتبات

الطريقة بسيطة جدا ,

من شريط الأدوات — اختر التبويب Win32 — ومنه اختر الأداة XPMainfest , وضعها على النموذج

هذا فقط !

أو بإمكانك أن تضيف إلى القسم Uses في الوحدة , الكلمة التالية :

XPMan

وانتهى الموضوع

ولإزالة هذا الـStyle , اذهب إلى الوحدة , ثم إلى القسم Uses

واحذف منه الكلمة XPMan