Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.138 Beiträge
 
Delphi 11 Alexandria
 
#1

Button im Splashscreen wie bei Office 2010

  Alt 8. Mai 2012, 15:07
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 ?

Geändert von bernhard_LA ( 9. Mai 2012 um 11:36 Uhr)
  Mit Zitat antworten Zitat