Aufruf des Systemmenü eines Fensters verhindern

[TUX_der_Pinguin]

So ich habe es jetzt scheinbar endlich geschafft ob die Lösung jetzt allem Standhält muss sich noch herausstellen.

Delphi-Quellcode:

private
  procedure WMInitMenu(var Msg: TWMInitMenu); message WM_INITMENU;

procedure TForm1.WMInitMenu(var Msg: TWMInitMenu);
begin
  //Behandlung abbrechen
  abort;
end;