Buscar

Escondendo janelas filhas minimizadas

Código

{Para esconder janelas filhas minimizadas, basta capturar a mensagem WM_Size, desta maneira: }
type
TForm1 = class(TForm)
public
  procedure WMSize(var M : TWMSIZE);Message WM_Size;
end;
implementation
procedure TForm1.WMSize(var M:TWMSIZE);
begin
  if M.SizeType=Size_Minimized then
  ShowWindow(Handle,Sw_Hide);
end;

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Forms
Adicionada dia: 12/06/03
Por: Felipe Monteiro
Visualizada: 1998 vezes

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