Exercut comando quando clic no botão de minimizar?

[gessimarjunior 0]

:(

Pessoal

 

Alguem sabe Como exercutar algum comando quando clicar no botão de Minimizar? (Porque eu quero executar uma linha de comando quando eu clicar em minimizar)

 

Valew!

http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

[thalesoli 0]

Ola

 

eu encontrei esta dica para você

 

Primero, capturamos a menssagem, adicionando esta linha na declaração private do form:typeTForm1 = class(TForm)private{Esta linha}procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;end;Na implementation, colocamos a procedure: procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);beginif (Msg.CmdType = SC_MINIMIZE) or(Msg.CmdType = SC_MAXIMIZE) thenMessageBeep(0);DefaultHandler(Msg);end;

espero q ajude

 

falow

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif