Efeito Alpha

[Guest claudiorar]

ae pessoal beleza?

eu estou com uma duvida...

gostaria de saber se existe algum comando no DELPHI para fazer o efeito ALPHA?

Obrigado

[Graymalkin]

Semi-transparente? Veja isso aqui:

var estilo : integer;
    h : integer;
begin
  h := self.Handle;
  estilo := GetWindowLong(h, GWL_EXSTYLE);
  SetWindowLong(h, GWL_EXSTYLE, estilo or WS_EX_LAYERED);
  SetLayeredWindowAttributes(h, 0, 126, LWA_ALPHA);
  UpdateWindow(h);
end;

Mas, só vai funcionar no WinXP ou superior. No lugar do 126 você vai definir o nível de transparência (vai de 0 a 255).

Abraços,

Graymalkin

[Guest claudiorar]

VLW!!!

so aproveitando o tópico...

vc, ou alguém, saberia me indicar alguns livros bom de delphi?

sou iniciante....

Obrigado

Abraços!