Developer Ala2

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

شاهدت موضوعاً لعمل شاشة افتتاحية 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