Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Progressbar --> Neue Form öffnen
ChrisCross - Fr 02.11.12 19:56
Titel: Progressbar --> Neue Form öffnen
Hallo,
Ich habe in meinem Programm eine Progressbar. Wenn diese voll ist, sollte sich eigendlich eine Form öffnen. Es passiert aber nichts. Könntet ihr mir bitte helfen? Unten mein Quellcode:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm5.Timer1Timer(Sender: TObject);
begin
Progressbar1.Position := Progressbar1.Position +1;
Application.ProcessMessages;
if Progressbar1.Position = 100 then
begin
Form1.show;
Timer1.Enabled := False;
Progressbar1.Position := 0;
end;
end;
procedure TForm5.FormCreate(Sender: TObject);
begin
Timer1.Enabled := True;
end; |
WasWeißDennIch - Fr 02.11.12 19:58
Was heißt "passiert nichts"? Bewegt sich die ProgressBar nicht, oder wird das Formular nicht geöffnet?
ChrisCross - Fr 02.11.12 20:02
Das Formular öffnet sich nicht.
WasWeißDennIch - Fr 02.11.12 20:05
"Form1" lässt auf das Hauptformular schließen. Hast Du das denn vorher versteckt? Und kommst Du bei dem Show-Befehl überhaupt an (Haltepunkt)?
ChrisCross - Fr 02.11.12 20:41
Ich habe es anders gelöst. Das Fenster wird von der Hauptform aufgerufen und schließt sich nach Ablauf der Progressbar.
Danke für dein Bemühen.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!