Verzögerung während Prozedur läuft....

[litsa]

Hallo,

ich habe ein Programm bei dem ich auf einen Button klicke, der so einiges startet/macht (es werden Dateien gelesen, Daten gesammelt, Tabellen gefüllt, neue Dateien geschrieben...). Das klappt auch alles ganz gut aber eine Kleinigkeit nicht:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

  Label1.Caption := 'Daten werden geladen...'; //Das hier will nicht...
  ComboChange;
  WerteEinlesen;

end;

Ich hatte das Label1 vorher in WerteEinlesen ganz am Anfang und da der Text nicht erschien habe ich es rausgenommen aber der Text wird immer noch nicht angezeigt (nur zur Info: wenn ich die beiden procedures weglasse erscheint der Text). Außerdem wird der Text auch nirgendwo im Code auf '' gesetzt. In WerteEinlesen habe ich eine ProgressBar die ganz normal den Fortschritt zeigt, wollte halt noch einen Text dadrunter packen. Kann ich mir den Text trotzdem irgendwie anzeigen lassen?

Danke, Eva

[Tonic1024]

Hi...

Mach vor ComboChange mal ein

Delphi-Quellcode:

Application.Processmessages;

rein.

Gruß,

Toni

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

  Label1.Caption := 'Daten werden geladen...'; //Das hier will nicht...
  Application.ProcessMessages; //das hier einfügen
  ComboChange;
  WerteEinlesen;

end;

[himitsu]

Wenn der Text vom Label geändert wird, dann wird nur eine "zeichne dich bitte mal neu"-Message an dein Label/Programm gesendet.
Und ohne eine Verarbeitung dieser Nachricht wird nichst gezeichnet.

Delphi-Quellcode:

  Label1.Caption := 'Daten werden geladen...';
  ComboChange;
  Application.ProcessMessages;  <<< Nachrichten verarbeiten
  WerteEinlesen;

[edit]
da war zwar wer schneller, aber egal :angle2:
ich würde sowieso noch die Änderungen an der ComboBox abwarten, bevor ich zeichnen lasse, jedenfalls wenn das ComboChange nicht zu lange dauert.

[litsa]

Ok, beides hat geklappt!

Vielen Dank, Eva

[Luckie]

Warum eigentlich immer gleich die Holzhammermethode? Reicht nicht auch die Methode Repaint oder Refresh?

[Sir Rufo]

Wobei man sagen sollte, dass so ein "langwieriger" Teil besser in einem Thread aufgehoben ist.