Immer diese Sanduhr ...

[Rastaman]

Delphi-Quellcode:

procedure MessageLoop(msg: TMSG);
begin
  while True do
  begin
    if not GetMessage(msg, 0, 0, 0) then
      break;
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;
end;