Splash Screen

[isilcicekdal]

Merhaba arkadaşlar, umarım konuyu doğru yere açmışımdır.

Delphi'de yazdığım programda giriş yapılabilen bir LoginFormum var, giriş yapıldıktan sonra MainForm ekrana geliyor. Kısaca yapıyı bahsettikten sonra sorunumu aktarayım.

LoginForm'dan önce bir splashscreen ekrana getiriyorum. Fakat programı çalıştırdığım zaman Splash ekranında progressbar dolmadan kullanıcı giriş ekranı açılıyor. Yani Splash ekranı çıktıktan 2 sn sonra login ekranı da geliyor, progressbar 5 sn sonra kapanıyor.

Normalde ilk önce splash gelir belli bir timer süresinden sonra kapanır ardından login ekranı gelir. Hatam nerde olabilir yardımcı olursanız sevinirim.

İyi çalışmalar.

[omurolmez]

SplashForm unuzu ve LoginForm unuzu art arda Create ettiğinizi tahmin ediyorum (veya iki form da AutoCreate).
Uygulama dpr dosyasını şuna benzer biçimde değiştirebilirsiniz :

var
ABasla :TDateTime;
begin
Application.CreateForm(TSplashForm, SplashForm);
ABasla :=Now;
while Now-ABasla < 5/86400 do
Application.ProcessMessages;
Application.CreateForm(TLoginForm, LoginForm);
//ve diğerleri
end;