Message abfangen und nicht weiter geben

[Apollonius]

Schau mal in Forms.TApplication.ProcessMessage:

Delphi-Quellcode:

Handled := False;
if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
if not IsPreProcessMessage(Msg) and not IsHintMsg(Msg) and
  not Handled and not IsMDIMsg(Msg) and
  not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
begin
  TranslateMessage(Msg);
  if Unicode then
    DispatchMessageW(Msg)
  else
    DispatchMessage(Msg);
end;