Application.Processmessages blockiert

[DoktorD]

Hi. Ich nutze in meinen Programm Application.Processmessages um zu warten, bis eine bestimmte sage eintritt.
Aber wenn ich dies in einer Whileschleife ablaufen lasse, kann ich das Programm mit Alt + F4 nicht beenden.

Warum ist das denn so?
Wie kann ich das lösen?

Hier mal ein kleines Beispiel:

Delphi-Quellcode:

procedure TForm22.FormActivate(Sender: TObject);
begin
  while m_bTest = FALSE do
    Application.ProcessMessages;
end;

Danke für Eure Antworten

[mkinzler]

Delphi-Quellcode:

Application.ProcessMessages;

wartet nicht, sondern stösst nur die Abarbeitung von Windows-Nachrichten an. Du solltest zusätzlich noch einen Delay() o.ä. einbauen

[DoktorD]

Ok, das würde einiges erklären. Mit einem Sleep hab ich es auch schon probiert aber da geht es auch nicht.

Delphi-Quellcode:

procedure TForm22.FormActivate(Sender: TObject);
begin
  while m_bTest = FALSE do
  begin
    Application.ProcessMessages;
    sleep(10);
  end;
end;

Gibts in Delphi denn ein Delay? Die Delays in diesem Forum sind nämlich auch alle mit Application.Processmessages gelöst

[himitsu]

nein, Application.ProcessMessages verarbeitet die Nachrichten ... bzw. dieses ruft solange das inderne Application.ProcessMessage (man beachte das fehlende S) auf, wie Nachrichten vorhanden sind und .ProcessMessage verarbeitet diese dann.


[add]
ach ja, und nicht auf False/True prüfen!

[add2]
nein, aber Delay bzw. Delay

Delphi-Quellcode:

while not m_bTest and not Application.Terminated do
  Application.ProcessMessages;

[mkinzler]

Sleep() ist aktives warten. Sollte man nicht verwenden.