Hallo, jetzt habe ich lange gesucht - kennt jemand einen Event, der beim Wechsel des Programmfenster-Status von wsMaximized nach wsNormal ausgelöst wird?

Ich verwende jetzt diesen Code:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TformMain = class(TForm)

public
    { Public-Deklarationen }
    procedure WMSYSCOMMAND(var Msg: TMessage); Message WM_SYSCOMMAND;

procedure TformMain.WMSYSCOMMAND(var Msg: TMessage);
begin
  case Msg.wParam of
    SC_RESTORE: // von wsMaximized oder wsMinimized nach wsNormal
      begin
        Beep;
        inherited;
      end;
    else
      inherited;
  end;
end;

Das Abfangen der Nachricht funktioniert jedoch nur, wenn ich beim maximierten Fenster auf den Restore-Button klicke (links vom Close-Button). Wenn ich aber das Restore durch einen Doppelklick auf die Fenster-Titelzeile durchführe, funktioniert das Abfangen der Nachricht nicht! Weiß jemand wieso?