Systemmenü - Fenster schließen abfangen...

[Mazel]

Hallo,

ich möchte, dass das schließen aus dem Systemmenü abgefangen wird: "Fenster schließen Alt+F4". Ich habe es mit folgendem Code probiert, doch er fängt nur die Tastenkombination Alt+F4 ab und nicht den Klick auf den Item in dem Menü.

Delphi-Quellcode:

procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  If Message.CmdType and $FFF0 = SC_CLOSE then Hide;
  inherited;
end;

Dies funktioniert beim drücken von Alt-F4 und beim Klicken auf die Windows Schließen Schaltfläche rechts oben, jedoch nicht aus dem Menü heraus. Was kann ich machen, damit auch dies funktioniert?

Gruß
Mazel