okno wyswietlajace sie przed załadowaniem programu

okno wyswietlajace sie przed załadowaniem programu - jak ię to okno nazywa i czy znacie jakieś źródła?

Takie okienko nazywa się Splash (takie jak w Delphi na początku). Mam kod komponentu, który się wyświetla przed załadowaniem się programu (nie mój, z książki). Podaj mail'a to wyślę.--Jest jeszcze jeden błąd ... :)

--------------Blok reklamowy :) -----
kanał: #4programmers.net lub #4programmers
w sieci POLNet
serwer np.: warszawa.ircnet.pl

[email protected]
to poproszę o to źródło

Dryobate mozesz i mi podeslac: [email protected] PEDROS {hello}
PROPAGANDA: Uzywajcie irca i badzcie na kanale 4programmers.net
Delphi6

jakbys mógl to mi tez wyslij. prosze.

[email protected]

Mnie też możecie :) [email protected]

cos znalazlem na ten temat:

http://www.borland.pl/cgi-bin/tip.exe/tip?idt=tip_d_9

lub

http://www.borland.pl/cgi-bin/tip.exe/list?grupa=delphi (tytuł Winietka programu)

To ja tez poprosze...

[email protected]

{browar} --take care,

Wodzu

Następnym razem będzie już ławiej z wysyłaniem :) Wyślę wszystkim na raz (już w kontaktach jesteście)--Jest jeszcze jeden błąd ... :)

--------------Blok reklamowy :) -----
kanał: #4programmers.net lub #4programmers
w sieci POLNet
serwer np.: warszawa.ircnet.pl

a ja to robie tak: (listing project1.dpr)

program MyApp;

uses
Forms,
Windows,
Registry,
Main in 'Main.pas' {FrmMain},
Splash in 'Splash.pas' {SplashScreen} ;
var
Reg: TRegistry ;
_Splash : Boolean ;

{$R *.res}

begin
_Splash := False ;
Reg := nil ;
*******odczytanie wartosci splasha
try
Reg := TRegistry.Create ;
Reg.RootKey := HKEY_CURRENT_USER ;
if Reg.KeyExists('Software/MyApp/Settings') then Reg.OpenKey('Software/MyApp/Settings', False) ;
if Reg.ReadInteger('Splash') = 1 then _Splash := True ;
if Reg.ReadInteger('Splash') = 0 then _Splash := False ;
finally
Reg.Free ;
end ;
****koniec odczytywania wartosci splasha
if _Splash then SplashScreen := TSplashScreen.Create(Application);
try
if _Splash then SplashScreen.Show ;
Application.Initialize;
if _Splash then SplashScreen.Update ;
Application.CreateForm(TFrmMain, FrmMain);
FrmMain.Show ;
if _Splash then SplashScreen.Hide ;
finally
if _Splash then SplashScreen.Free ;
end ;
Application.Run;
end.

bez uzywania komponentow :) ale pewnie z nimi jest latwiej.. :) mimo wszystko:

Pozdrawiam {hello} --LSD - Discover The New Way Of Thinking