Startbild beim Starten meiner Anwendung

Computer: Software & Programmierung Delphi & Pascal
#1

Hallo,
möchte gern, das beim starten meiner Anwendung erst ein Startbild kommt und dann die Anwendung (z.B. so wie beim starten von Microsoft Word).
Wie kann ich das realisieren??

Danke schon mal im vorraus!!
mfg Sven

#2

Hallo Sven!

Wie wäre es mit nem einfachen Formular wo du dein Startbildchirm reinlädst und einem TTImer objekt was nach einer bestimmten Zeit MainForm.Visible :=TRUE;
StartForm.Visible:=FALSE; setzt.

geht natürlich auch anders…

CIaoSven.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Danke erstmal!! Wie jetzt rein laden? Der Startbildschirm soll ohne rand erscheinen. Brauch ich da zwei Formulare?

ciao Sven

#4

OK geht - Danke!!
Ok Danke es haben sich gerade alle Probleme selbst geklärt!!

ciao und nochmal Danke Sven

#5

So geht’s
Hi,

Danke erstmal!! Wie jetzt rein laden? Der Startbildschirm soll
ohne rand erscheinen. Brauch ich da zwei Formulare?

Also pass auf:
Das Hauptfenster des Programms bezeichne ich als „MainForm“ und den Startbildschirm als „SplashScreen“

  • du nimmst ein neues Form (Falls du noch keines dafür erstellt hast)
  • setze im Objektinspektor (Object Inspector) die Eigenschaft BorderStyle auf bsNone.
  • Damit das Ganze noch in der Bildschirmmitte ist, setzt du im Object Inspector die Eigenschaft Position auf poScreenCenter

(Gestalte das Form gemäß deinen Vorstellungen)

Dann setzt du einen TTimer auf das Form.
Gib ihm den Interval 3000, damit der Splash 3 Sekunden angezeigt wird (5000 für 5 Sek usw.)

Dem Timer gibst du folgende Aufgabe:

Destroy;

Dann wählst du das Form aus und klickst im Object Inspector die Karte „Ereignisse“ oder „Events“.
Dort suchst du OnDestroy und gibst diesem Ereignis folgende Aufgaben:

Timer1.Enabled := False;
MainForm.Visible := True;

Das Ganze sollte jetzt so aussehen:

procedure TSplashScreen.Timer1Timer(Sender: TObject);
begin
Destroy;
end;

procedure TSplashScreen.FormDestroy(Sender: TObject);
begin
Timer1.Enabled := False;
MainForm.Visible := True;
end;

Im MainForm setzt du bei Visible die Eigenschaft „FALSE“ und beim SplashScreen auf „TRUE“

viel Spaß
CS