[ Remo @ 18.04.2006. 23:08 ] @
Molim vas treba mi hitno, kako da napravim splash screen? |
[ Remo @ 18.04.2006. 23:08 ] @
[ Trodmi @ 19.04.2006. 01:23 ] @
program Project1;
uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {SplashScreen}; {$R *.RES} begin SplashScreen := TSplashScreen.Create(Application); try SplashScreen.Show; Application.Initialize; SplashScreen.Update; Sleep(1000); // Or a delay command. Application.CreateForm(TForm1, Form1); SplashScreen.Hide; finally SplashScreen.Free; end; Application.Run; end. Ovo je samo jedan od nacina. [ dragancesu @ 19.04.2006. 09:28 ] @
Jedan od nacina je kao u prilogu
[ Nemanja Avramović @ 19.04.2006. 19:43 ] @
Dugo nisam pravio SPLASH screen, ali kad sam ih radio napravio bih form2 (npr.) da bude splash screen (borderless) i onda u form1.oncreate* (vidi kod) stavio bih form2.showmodal i sakrio bih app. iz taskbar-a a na form2 bih stavio timer koji okida na npr 3 sekunde i ontimer izvrsava form2.close i prikazuje app. u taskbar-u
![]() Ukratko: Code: // u form 1 on show (ne znam da li moze u oncreate*) showwindow(application.Handle,sw_hide); form2.showmodal; // u form2 na timer form2.Close; showwindow(application.Handle,sw_show); [Ovu poruku je menjao JaHvram dana 19.04.2006. u 20:46 GMT+1] [ bondja @ 20.04.2006. 08:55 ] @
Mozda najednostavniji nacin: na main formu se stavi jedan panel (npr tzv pnlAbout) tako da on bude iznad svih ostalih komponenti u main prozoru. doda se HideAbout metoda...... pogledajte source...
poz. Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|