Buscar

Para acessar os eventos minimizar, maximizar e restaurar do form

Código

Para acessar os Eventos Minimizar, Maximizar e Restaurar do Form:

Declare este manipulador na área private do Form:

private
{ Private declarations }
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;

E abaixo de implementation :

procedure TfrmPrincipal.WMSysCommand(var Msg: TWMSysCommand);
begin
inherited;
case Msg.CmdType of
SC_MINIMIZE: Esconde(True); //Aqui você declara o que será feito se o botão minimizar foi clicado e assim por diante
SC_MAXIMIZE: Esconde(False);
// SC_MAXIMIZE, 61490: Esconde(False); //Para evitar a maximização com um clique duplo, usamos o parâmetro 61490
SC_RESTORE : Esconde(False);
end;
end;
 

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Forms
Adicionada dia: 05/05/05
Por: Miguel Machado
Visualizada: 11981 vezes

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