Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mazel,
22. Jan 2006
Danke, :thumb:
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? :wall:
Jedenfalls klappt es!
Gruß
Mazel
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mazel,
22. Jan 2006
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ü.
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
If...