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

[F.W.]

Zitat:

Dies funktioniert beim drücken von Alt-F4

Möchtest du generell alle schließen-messages abfangen?

Schau dir doch mal das Ereignis OnFormClose deines Formulars an! Speziell den var-Parameter Action!
In der Hilfe steht was er bewirkt!

[Christian Seehase]

Moin Marcel,

Du könntest, statt die Messages abzufangen, einfach im OnCloseQuery dass Schliessen des Fensters verbieten, bis, z.B., eine Bestimmte Bedinungung zutrifft, damit Du es überhaupt mal schliessen kannst. Oder Du müsstest das Programm dann per Application.Terminate beenden, da hier, u.a., OnCloseQuery übergangen wird.

[Mazel]

Danke,

mit OnClose oder OnCloseQuery funktioniert es. Warum bin ich nicht darauf gekommen? Warum habe ich das mit WMSysCommand probiert, wo es doch so einfach ist mit OnClose?

Jedenfalls klappt es!

Gruß
Mazel

[F.W.]

Wer es über das Abfangen von Messages machen möchte, kann dafür auch die Message WM_CLOSE verwenden:

Delphi-Quellcode:

  private
    procedure WMClose(var Msg: TWMClose); message WM_CLOSE;

cya Felix