Buscar

Executando algo antes de minimizar

Código

{Primeiro, capturamos a mensagem, adicionando esta linha na declaração private do form: }
type
TForm1 = 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);
begin
if (Msg.CmdType = SC_MINIMIZE) or
(Msg.CmdType = SC_MAXIMIZE) then
MessageBeep(0);
DefaultHandler(Msg);
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 20/06/03
Por: Felipe Monteiro
Visualizada: 2335 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009