Fundo do Form Transparente

[DelpheroMn]

Olá galera, eu estou com um problema.

Meu programa eu quero que tenha uma borda modelada, com transparencias nessas bordas, pra ficar algo mais bonito e agradável, no entanto estou tendo problemas com a propriedade transparentcolor.

Observem:

http://i50.tinypic.com/j96n8z.png

A função em si funciona perfeitamente, porém a parte que imagem é semi transparente, como uma sombra ou algo do tipo ele não aplica a propriedade.

Existe algum componente que possa me ajudar?

[Jhonas]

qual é a função que voce esta usando ? talvez voce tenha que fazer um tratamento na imagem.

[DelpheroMn]

Self.TransparentColor := True;

Self.TransparentColorValue := ColorToRGB(Self.Color);

[Jhonas]

tente essa função

procedure TForm1.FormCreate(Sender: TObject);
const
   WS_EX_LAYERED = $00080000;
   LMA_COLORKEY = $00000001;
   LMA_ALPHA = $00000002;
type
   TLayerFunc = function(hwnd : HWND; crKey : COLORREF; bAlpha : BYTE; dwFlags : DWORD) : boolean; stdcall;
var
   ExtStyle : LongInt;
   LayerFunc : TLayerFunc;
   LibHandle : HModule;
begin
   LibHandle := LoadLibrary(user32);
   if LibHandle > 0 then
      begin
         LayerFunc := GetProcAddress(LibHandle, 'SetLayeredWindowAttributes');
         if Assigned(LayerFunc) then
            begin
               ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
               SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
               LayerFunc(Handle, rgb(255,0,0), 120, LMA_ALPHA or LMA_COLORKEY);
            end;
         FreeLibrary(LibHandle);
      end;

end;

abraço

[DelpheroMn]

Não Jhonas, oque essa função faz é aumentar a transparencia do form inteiro.

Provavelmente foi feita para as versões do delphi anteriores ao 4 , porque após essa versão eles criaram a propriedade AlphaBlendValue e AlphaBlend.

Posso fazer fácilmente oque esta função fez ultilizando o seguinte código:

Self.AlphaBlend := true;

Self.AlphaBlendValue := 120;

No caso ele coloca a transparência no form inteiro, se houvesse um método de colocar a transparencia sómente no fundo do form, deixando os componentes visiveis me ajudaria da forma que quero.

Exemplo:

O Form por inteiro transparente, porém o Componente TImage Visível.

[Jhonas]

tente assim então

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Brush.Style := bsClear;
end;

abraço

[DelpheroMn]

Nesse caso também não funciona Jhonas, porque no fundo da imagem que era pra ficar transparente por ela ser em png, fica preto com essa função..

Estava pesquisando sobre componentes do gênero também e não achei nada :/

[Jhonas]

como eu disse, voce tem que fazer um tratamento na imagem para que ela fique com o fundo transparente

usando o seu proprio codigo

abraço

[DelpheroMn]

mas nesse caso ele tira tipo um "print" do fundo e grava até fechar o form.

Então se caso você minimizar a janela que estava no fundo , o fundo que ele iniciou continuará.

Teria alguma forma que fosse em tempo real? porque fica meio esquisito, ao mover o form a imagem de fundo ficar travada

[Jhonas]

fiz um teste aqui e a imagem não fica travada não e ao minimizar a figura do TImage não permanece no fundo ...

ou envie uma amostra do que ocorre ai

abraço