nachrichtenschleife aufrecht erhalten

[shmia]

Delphi-Quellcode:

function ProcessMessages:boolean;
// hält die Nachrichtenschleife in Gang 
var 
  Msg: TMsg; 
begin 
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then 
  begin 
    result := Msg.Message <> WM_QUIT;
    if Result then
    begin
      TranslateMessage(Msg); 
      DispatchMessage(Msg);  
    end;
  end; 
end;

In deinem Programmcode muss nun der Return-wert ausgewertet werden:

Delphi-Quellcode:

for I := 0 to 99999 do
begin
  // irgendwas tun ...
  if not ProcessMessages then Exit;
end;