Kayıt
21 Kasım 2007
Mesajlar
3.038
Beğeniler
0


lll :idea: lll Açılış ekranı (Splash Form) oluşturma lll :idea: lll

Açılış ekranı için bir form oluşturun. Formun BorderStyle özelliğini bsNone yapın. Project Options kısmından formu Auto-Create değil, Avaible forms yapın. Daha sonra Project->View Source ile proje dosyanıza(.dpr uzantılı) aşağıdaki kodları ekleyin.

Kod:
begin
 SplashForm := TSplashScreen.Create(Application); //bu 3 satır eklendi. Formu oluştur
 SplashForm.Show;                                 //formu göster
 SplashForm.Update;                               //formu yenile

 Application.Initialize;
 Application.Title := 'Application Title';
 Application.CreateForm(TForm1, Form1);

 SplashForm.Hide;                                 //bu 2 satır eklendi. Formu gizle
 SplashForm.Free;                                 //Formu yok et

 Application.Run;
end.
 
Yukarı Alt