Anwendung minimiert ?

[Blackheart]

Delphi-Quellcode:

public
   procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMSysCommand;
begin
  if (Msg.CmdType = SC_MINIMIZE) then ShowMessage('Klein');
  if (Msg.CmdType = SC_MAXIMIZE) then ShowMessage('Groß');
  DefaultHandler(Msg);
end;