Já tentou usar a propriedade AlphaBlendValue + AlphaBlend?
----- Original Message -----
From: "BandaLemuel" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, April 23, 2007 8:31 AM
Subject: Re: [delphi-br] Podem me ajudar? Form Transparente, dúvida de
aprendiz!
Eu faria diferente.... criaria uma imagem com um cor que vc não usaria
na aplicação.. margeta por exemplo... colocaria uma componente TImage e na
propriedade transparent color fo formulario colocaria a mesma cor da
imagem.... ai o form ficaria tranpararente....
Wesley
----- Original Message -----
From: werelli
To: LISTA_DELPHI ; [EMAIL PROTECTED] ;
DELPHI_TOTAL
Sent: Monday, April 23, 2007 7:59 AM
Subject: [delphi-br] Podem me ajudar? Form Transparente, dúvida de
aprendiz!
Olá Pessoal!
Bem gente estou tentando inserir um form transparente na aplicação que
estou desenvolvendo, o exemplo abaixo retirei lá do planeta delphi, mas
devido ao meu pouco conhecimento não estou conseguindo.
Por favor podem me dar uma mão? Como implementar a situação abaixo?
atenciosamente,
werelli
procedure TransparentForm;
//
// Gera um form transparente.
// Requer a referencia do form em sua declaração tipo:
//
// procedure TForm1.InvisibleForm;
// ^
//
var
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
SetWindowRgn(Handle, FullRgn, True);
end;
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.463 / Virus Database: 269.5.7/771 - Release Date: 21/4/2007
11:56
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
