Nachträglich einem Projekt einen Splshscreen geben?

[Master_RC]

hi leutz!

Ich starte demnächst ein Projekt.
Allerdings weiß ich nicht in wie weit es "auseitet", also wie groß es irgendwann mal sein wird.
Deswegen wollt ich mal fragen, wie schwer es ist, nachträglich einen Splashscreen hinzuzufügen.

[mkinzler]

Das nachträgliche Einfügen eines Splashscreens ist leicht möglich.

[EDatabaseError]

schaumal bei den schweizern unter splashscreen (www.swissdelphicenter.ch) und da programmierer tips oder einfach

Delphi-Quellcode:

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.

das splashform muss ScreenCenter und Keine Border haben.

@mkinzler
theoretisch doch schon also ich habs nachträglich gemacht mit ^dem da^ er muss halt das createform aus dem bestehenden project herauskopieren und dann unter dem sleep wieder einfügen

[Master_RC]

Ich schätz dann mal dass ich vor dem Kompilieren eine Form hinzufügen muss, die dann "TSplashScreen" heißt (laut Beispiel)

Wenn ja, dann isses ja zu einfach ^^

danke erstmal!! :)

[Elvis]

Kommt immer darauf an wie fortgeschritten die Infos im Splash screen sind. Wenn ein Fortschrittsanzeige nötig ist, wird's zum Beispiel sehr schnell entweder eine triviale Anzeige oder eine non-trivial Implementierung. ;)

[EDatabaseError]

klar das ding von mir zeigt nur ein form an bis alle forms created sind.

[Master_RC]

Joa...
Was, wenn ich noch nen Balken angezeigt haben will? ^^

Bzw. nur ein Label, dessen Caption sich änert? :/

Soll ich dann machen:
Form create
Label-Text ändern
Splashscreenform neu zeichnen

oder wad? o.O

[EDatabaseError]

IMHO machst du dann im Projectfile nach jedem CreateForm:
SplashScreen.Label.Caption := 'Initialisiere 1';
...


Mfg
Tobi

[Master_RC]

Sollte ich dann nit auch
SplashScreen.Repaint (oder Refresh)

machen?

Nur... so... als... Frage...

Nit dass es nit neu gezeichnet wird und imer das Gleiche dasteht, obwohl etwas Neues stehen sollte ;)

[EDatabaseError]

ja solltest du... :oops: :wink: