Ja, er hatte jetzt ein Beispiel gemacht für nicht anzeigen. Aber das geht schon auch:
Delphi-Quellcode:
Form1 := TForm1.Create(Self);
try
Form1.Show;
Step1;
Form1.UpdateStatus(20, 'Kopiere Daten...');
Step2;
Form1.UpdateStatus(40, 'Mache was anderes...');
Step3;
Form1.UpdateStatus(70, 'Fast fertig.');
Step4;
Form1.UpdateStatus(100, 'Fertig');
finally
FreeAndNil(Form1); // richtig, nicht aufgepasst...
end;
So mache ich das immer. Erstens bekomme ich dann keine Probleme durch unübersichtliche Beziehungen zwischen den Formularen und Quelltext in beiden Richtungen und zweitens wird es so einfach nach der Anzeige usw. wieder geschlossen und gut ists.