Warte-Fenster anzeigen

[BillieJoe90]

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

[Matze]

Hi,

evtl. kannst du irgendwo ein Application.ProcessMessages einbauen, doch ich würde dir empfehlen, das Einlesen der Laufwerke in einen Thread auszulagern.

[BillieJoe90]

Zitat von Matze:

doch ich würde dir empfehlen, das Einlesen der Laufwerke in einen Thread auszulagern.

Und dann wäre das möglich?

[igel457]

Ich denke, das folgendes...

Delphi-Quellcode:

procedure TpleaseWait.showAdvice(advice:String);
begin
  lblAdvice.Caption := advice;
  self.Position := poMainFormCenter;
  MainForm.Enabled := false;
  self.show;
  Application.ProccesMessages;
end;

schon reicht...

[BillieJoe90]

Ja, es klappt!
Danke!

[BillieJoe90]

Eine Frage hätte ich allerdings noch:
Währenddessen können keine anderen Befehle "gewollt" ausgeführt werden, oder? In pleaseWait befindet sich nämlich ein Timer, der etwas machen soll...

[Matze]

Hi,

es kommt darauf an, wie deine Funktion zum Aktualisieren der Laufwerke ausschaut. Falls das eine Schleife ist, würde ich dort ebenfalls, wie ich oben genannt habe, ProcessMessages ausfüren, bzw. versuchen, ob's dann klappt. Aber wenn das Aktualisieren lang dauert, würde ich wirklich einen Thread nutzen, dann läuft die Sache eigenständig im Hintergrund ab.