Form - Detectar Minimize, Maximize ou Restore

Top  Previous  Next

// DETECTAR se o form está minimizando ou restaurando:

 

  private

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

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.DFM}

 

{ TForm1 }

 

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);

begin

  case Msg.CmdType of

    SC_MINIMIZE : Application.Title := 'MIM';

    SC_MAXIMIZE : Application.Title := 'MAX';

    SC_RESTORE  : Application.Title := 'RES';

  end;

  inherited;

end;