Buscar

Form com sombra

Código

// Declare o método CreateParams com protected //

  protected
    procedure CreateParams(var Params: TCreateParams); override;


// sobrescreve o método //
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WindowClass.Style := Params.WindowClass.Style or $00020000;
end;

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Forms
Adicionada dia: 01/07/08
Por: Fábio Romão De Oliveira
Visualizada: 9411 vezes

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