Hallo,
Ich habe in mein Programm eine Progressbar mit eingebaut, die immer mit anzeigen soll, wo das Programm gerade ist. Da man in TProgressBar keine Textfunktion hat, hab ichs mal mit einem Label versucht. Das Label würde es mir allerdings erst zeigen, wenn das Programm fertig ist. Also die ganzen Zwischenschritte bleiben aus. Hier mal bisl Code:
Delphi-Quellcode:
aktion := TForm5.Create(Form5);
with aktion do
begin
Show;
Progressbar1.Min := 0;
ProgressBar1.Max := 100;
ProgressBar1.Step := 20;
Label1.Caption := 'Datensätze werden gezählt';
ProgressBar1.StepIt;
...
Label1.Caption := 'Excel wird gestartet';
ProgressBar1.StepIt;
...
Label1.Caption := 'Fahrten werden ausgewertet';
ProgressBar1.StepIt;
...
Label1.Caption := 'Diagramme werden erstellt';
ProgressBar1.StepIt;
...
ProgressBar1.StepIt;
Close;
Free;
end;
Gehe ich vlt total falsch an die Sache ran??
Freue mich über jede Hilfe
viele Grüße
Hermann