Ich verwende jetzt diesen Code:
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?