Moin smax,
in Deiner Formulardeklaration
Delphi-Quellcode:
type
TForm1 = class(TForm)
//...
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
//...
end;
z.B. im OnCreate Deines Formulares dann zuweisen
Application.OnMessage := AppMessage;
und nicht zu vergessen die Prozedure selber im Implementation Abschnitt unterzubringen.