Ereignis bei message abfangen geht nicht

[SirThornberry]

im Moment fängst du gar keine Message ab, das würde so funktionieren:

Delphi-Quellcode:

private/protected/public
  procedure MessageProcedure(var YourMesageVar: TYourMessageTyp); message yourmessage;

konkret könnte das im allgemeinen Fall so aussehen

Delphi-Quellcode:

private
  procedure FWM_SYSCOMMAND(var AMsg: TMessage); message wm_syscommand;