ActiveDelphi

[deadpvh]

Utilizo o delphi 7 e gostaria de implementar uma splash screen que ficasse tipo a do adobe reader 6 ou o o CorelDraw X3.

Alguém pode me orientar...???

[thomazs]

Se quer transparência, é só definir a propriedade TransparentColorValue para a cor que deseja que fique transparente, e colocar na Propriedade TransparentColor o valor True.
Dessa forma tudo o que tiver com a cor selecionada em TransparentColorValue ficará transparente (para o form apenas, não para a aplicação).
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[ovatsug]

Olha se definir uma cor transparente não vai aparecer no 98, tenho duas dicas:
1ª) Coloque a propriedade BorderStyle para bsNone;
2ª) Crie um ponto eliptico com CreateEllipticRgn ou CreateRectRgn.

procedure TForm1.FormShow(Sender: TObject);
var
hR : THandle;
begin
hR := CreateEllipticRgn(15,30,485,500);// ou CreateRectRgn(15,30,485,500)
SetWindowRgn(Form1.Handle,hR,True);
end;
_________________
[img]http://img166.imageshack.us/img166/6924/seilah2yqpy3.gif[/img]

[thomazs]

Funciona sim... pelo menos no SE funciona.
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

[jjmalka]

deadpvh, Thomaz, para resolver este problema procure por um componente chamado
1STClass.
Este componente pode fazer um monte de coisas com transparencia.

[Editado em 29/8/2006 por jjmalka]