چطوري يك Splash Screen بسازيم اکتيو ایکس دلفی

[shaabani]

توضیحات:
فرمي به نام SplashScreen اضافه و طراحي كنيد.
از منوي View گزينه Project Source را انتخاب كنيد . در كد آن تغييراتي مشباه زير انجام دهيد:

Code:

begin
//سه خط زير بايد به صورت دستي اضافه شود
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
SplashScreen.Update;
Application.Initialize ;
Application.Title := 'Application Title';
Application.CreateForm(TForm1, Form1);
//دو خط زير هم براي بستن آن اضافه مي شود
SplashScreen.Hide;
SplashScreen.Free;
Application.Run;
end.