VCL-Form aktualisieren obwohl Maschine ausgelastet ist

[Noobmaster]

Hey!
Baue in deine Schleife
application.ProcessMessages; ein.
Diese Prozedur zwingt das System zur Aktualisierung.

Alternativ baue sie vor die Schleife ein (Ressourcen sparen)

MfG,

Noobmaster

[CCRDude]

Application.ProcessMessages birgt aber diverse Gefahren, man merke etwa, daß Dein OnClick-Handler den Button nicht für den Zeitraum der Aktion disabled, so daß ein ProcessMessages etwa bewirken würde, daß der Nutzer die Berechnung ein zweites Mal starten kann, bevor die erste zuende gelaufen ist (weil er den Button-Click "processed").

Anders gesagt: die einzige sinnvolle Variante ist, rechenintensives in Threads auszulagern. LblAchtung.Refresh und Application.ProcessMessages sind ein Workaround, der klappen mag, wenn die Form kaum was kann und die einzigen Alternativ-Actions disabled werden, aber schön ist das trotzdem nicht.

[himitsu]

Zitat:

die einzige sinnvolle Variante ist,

Oder den Button zu disablen.

Man kann übrigens auch ein Refresh (der Form) regelmäßig aufrufen, bzw. die entsprechenden Controls refreshen/repainten.

[DeddyH]

Das hatten wir bereits in #3 (*seufz*). Allerdings reagiert das Formular zwischen 2 Aufrufen auch anderweitig nicht (verschieben etc.).

[himitsu]

Zitat von DeddyH:

Allerdings reagiert das Formular zwischen 2 Aufrufen auch anderweitig nicht (verschieben etc.).

Tja, vielleicht will man das ja auch nicht

- in Threads auslagen (und die VCL-Aufrufe synchronisieren)
- nur das Repainten, was man benötigt (sonst reagiert aber nichts)
- Application.ProcessMessages und die entsprechenden Funktionen disablen (falls nötig), wärend der Laufzeit
- nur Application.ProcessMessages und mit den Gefahren leben
- die Funktion in kleine Einheiten aufteilen und via Timer abarbeiten

Auswahlmöglichkeiten gibt es zu Genüge.

[Luckie]

Aber auch wenn man mit Threads arbeitet, sollte man die Steuerelemente deaktivieren, sonst kann der Thread mehr mals gestartet werden. Nichts desto trotz halte ich Threads für die sauberere Lösung. Denn arbeitet man mit Processmessages, wird jedes mal die Verarbeitung unterbrochen, wenn Nachrichten abgearbeitet werden. Verschiebt man das Fenster zum Beispiel oder muss es häufig aktualisiert werden und stehen deshalb viele Nachrichten an, wird gar nichts gemacht, weil erst mal die ganzen anstehenden Nachrichten abgearbeitet werden.

[Furtbichler]

Gegen mehrmaliges Aktivieren hilft ein einfaches

Delphi-Quellcode:

Procedure TMyForm.myButtonClick(Sender : TObject);
Begin
  If myButton.Tag=0 then 
    try
      myButton.Tag := 1;
  // Und hier was extrem lahmes mit Application.ProcessMessages zwischendurch
    finally
     myButton.Tag := 0;
  end
end;

Wobei.. myButton.Enabled := False ist irgendwie ... naheliegender