Rechenzeit für Anwendung

[marabu]

Hallo Martin,

vielleicht möchtest du es noch ein wenig an deine Bedürfnisse anpassen, aber das sollte mit der Online Hilfe kein Problem sein:

Delphi-Quellcode:

procedure ProcessMessages;
var
  Msg: TMsg;
begin
  if PeekMessage (Msg, 0, 0, 0, PM_REMOVE) then begin
    TranslateMessage (Msg);
    DispatchMessage (Msg);
  end;
end;

Grüße vom marabu