ShowMessage wenn form2 minimiert wird ?

[thomas2009]

Problem gelöst mit diesem kurzen Code:

Delphi-Quellcode:

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
   case (msg.CmdType and $FFF0) of
     SC_MINIMIZE: begin
                    ShowMessage('Form wird minimiert');
                  end;
   end;
   inherited;
end;