Wieder mal splashscreen

[kiar]

mit folgenden code erstelle ich ein splashscreen.

Delphi-Quellcode:

program Kindergarten;

uses
  Forms,
  windows,
  Main_unit1 in 'Main_unit1.pas' {Form1},
  Splash_unit in 'Splash_unit.pas' {Splashscreen};

{$R *.RES}

begin
  SplashScreen := TSplashScreen.Create(Application); 
  SplashScreen.Show;
  Application.Initialize; 
  SplashScreen.Update;
  Sleep(2000); 
  Application.CreateForm(TForm1, Form1);
  SplashScreen.Hide;
  SplashScreen.Free; 
  Application.Run; 
end.

nun wird auf der splashscreen ein bild geladen.

frage. wie kann ich die komplette form anzeigen lassen. zur zeit ist es so, das erst die nackte form geladen wird und zeitverzögert das bild.

im create des splashscreen habe ich die fkt zum laden der grafik, alsoimage1.picture.loadfromfile('das bild'); was kann man ändern

raik

[mirage228]

mach mal nachdem du das Bild geladen hast ein
Update; EDIT:
Außerdem sollte der Code für den Splash so aussehen:

Delphi-Quellcode:

begin
  SplashScreen := TSplashScreen.Create(Application);
  try
    SplashScreen.Show;
    Application.ProcessMessages;
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    SplashScreen.Hide;
  finally
    SplashScreen.Free;
  end;
  Application.Run;
end.

EDIT2:
Außerdem solltest du statt "Sleep" (falls du es denn brauchst), die "Delay" Prozedur aus der Code-Library benutzen.

mfG
mirage228

[kiar]

so funktioniert es auch nicht.

schaue mir mal die delay funktion an

raik

[Lord_Stifterl]

meines wissens nach, hab ich entweder in der code-libary mal einen beitrag zum thema splashscreens gefunden oder wars doch bei tutorials . vielleicht hilft dir das weiter.

[sakura]

Zitat von Lord_Stifterl:

thema splashscreens gefunden oder wars doch bei tutorials

War es dieser schöne Beitrag

......

[Lord_Stifterl]

Genau dieser wunderschöne Eintrag wars

[kiar]

@ sakura

im netzwerk scheint das aber nicht zu klappen, wenn ich das programm starte kommt erst ein grauer Kasten und nach geraumer Zeit, das bild.

es muss doch möglich sein, das das bild gleich mitkommt???

raik

[sakura]

Versuche mal nach dem LoadFromFile

Delphi-Quellcode:

Image1.Repaint;
// oder
Image1.Invalidate;

// UND!
Application.ProcessMessages;

......

[kiar]

klappt leider nicht, muß ich mir etwas anderes einfallen lassen.

trotzdem danke

raik

[kiar]

es liegt am bild, mit einem jpg dauerst mit einem bmp ist es sofort da.

raik