Einzelnen Beitrag anzeigen

EDatabaseError

Registriert seit: 11. Mai 2005
Ort: Göppingen
1.238 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Nachträglich einem Projekt einen Splshscreen geben?

  Alt 24. Jun 2006, 20:41
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
Tobias
It's not a bug, it's a feature.
  Mit Zitat antworten Zitat