Hallo,
ich würde gerne, während mein Programm etwas macht, dem Benutzer ein kleines Wartefenster anzeigen, wenn es etwas länger dauert. Meine Idee war folgende:
Delphi-Quellcode:
procedure SoUndSo;
begin
pleaseWait.showAdvice('CD-Laufwerke werden überprüft...');
refreshDrives;
pleaseWait.hideAdvice;
end;
Delphi-Quellcode:
procedure TpleaseWait.showAdvice(advice:String);
begin
lblAdvice.Caption := advice;
self.Position := poMainFormCenter;
MainForm.Enabled := false;
self.show;
end;
procedure TpleaseWait.hideAdvice;
begin
MainForm.Enabled := true;
self.hide;
end;
Das funktioniert aber nicht... Das Fenster bekommt man gar nicht zu sehen, auch wenn das Programm einige Sekunden mit refreshDrives beschäftigt ist.
Wie kann ich das Wartefenster so lange an zeigen lassen, wie das Programm für refreshDrives braucht?
Danke schonmal!
Johannes