Button im Splashscreen wie bei Office 2010

[bernhard_LA]

Ich hätte gerne auch so einen netten Button auf dem Splash screen wie bei Office 2010 , der
a) vom Benutzer gedrück werden kann falls Ihm das Laden der Applikation zu lange dauert ( und dann CANCEL / Application.Terminate)
b) der den Splashscreen schließt wenn ich einen Fehler beim Laden und Programmdaten habe
c) sich auch so nett in meine Grafik auf meiner SplashScreen einfügt wie bei Office 2010



die *.prj sieh´t bei mir wie folgt aus ....

Delphi-Quellcode:

  Application.Initialize;

  SplashScreen:= TSplashScreen.Create(Application);
  SplashScreen.Show;
  SplashScreen.Refresh;

  {$IFDEF RELEASE}
  SplashScreen.WaitTime := 1000;
  {$ENDIF}
  {$IFDEF DEBUG}
  SplashScreen.WaitTime := 10;
  {$ENDIF}


  SplashScreen.InfoStatusBar.SimpleText := 'Loading Main ...';
  Application.CreateForm(TMainForm, MainForm);

  SplashScreen.InfoStatusBar.SimpleText := 'Loading weitere forms  ...';
  Application.CreateForm(TDie ganzen weiteren Forms , alle meine Forms);


  SplashScreen.CheckDiverserThemen;

  SplashScreen.ShowDiverseInformationenOnSplashscreen;

  /// sollte jetzt hier der Code für meinen Splash Screen rein ???
  /// Form schliessen wenn ...    ?????
  ....  

  Application.Run;

Was für eine Abfage könnte ich einbauen damit nach jedem Laden eines Moduls geprüft wird ob der "Escape" Button gedrückt wurde ?
Unter http://www.delphipraxis.net/8637-tut...h-screens.html
gibt es zwar einen Button im Splash Screen aber nicht die Möglichkeit die APP auch nicht zu straten jenachdem was a) der Benutzer will oder b) das Ergebnis der Check (zB. Laden der DLL erfolgreich oder nicht) ...


Wenn ich den Button in ein TImage Integrieren möchte, wie mache ich dies am besten ?

[bernhard_LA]

im aktuellen Code habe ich 3 CheckRoutinen und speichere die Ergebnisse dieser Prüffunktionen in den properties des splash screens ab,
was nicht funktioniert ... falle einer der Checks false ist auf das Drüchen eines Buttons im Splashscrenn warten :?:

Delphi-Quellcode:

  try 
      ..... 
  finally
    SplashScreen.InitializationDone := True;
  end ;


  SplashScreen.ErrorStringList := MainForm.GlobalErrorList;

  SplashScreen.CheckSupportFiles;  //  allle DLLS vorhanden

  SplashScreen.CheckCompilerSetting;  //  andere Checks

  SplashScreen.CheckLicenseTopics;  //  gültige Lizenz ??? 

   if SplashScreen.CheckLicenceDone then
     begin

     SplashScreen.Hide;

     SplashScreen.Free;

     Application.Run;

     end
     else
     begin

     Application.Terminate;

     end;