janela transparente

Question

Sou iniciante em delphi e gostaria que alguem me desse uma ajuda sobre janelas trasparente tipo do icon,tem como fazer no delphi??Alguem sabe onde tem um codigo,ou como se chama no jargao tecnico este tipo de janela??
ATE

Cebikyn · Answer

N�o conhe�o o tal [i:9eeec19c89]Icon[/i:9eeec19c89], mas se � uma janela trasparente que voc� quer, eis o c�digo:

var
  AControl: TControl;
  A, Margin, X, Y, CtlX, CtlY: 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);
  for A := 0 to ControlCount - 1 do 
  begin
    AControl := Controls[A];
    if (AControl is TWinControl) or (AControl is TGraphicControl) then with AControl do 
      begin
        if Visible then 
        begin
          CtlX   := X + Left;
          CtlY   := Y + Top;
          CtlRgn := CreateRectRgn(CtlX, CtlY, CtlX + Width, CtlY + Height);
          CombineRgn(FullRgn, FullRgn, CtlRgn, RGN_OR);
        end;
      end;
  end;
  SetWindowRgn(Handle, FullRgn, True);
end;

Nihil · Answer

valeu mesmo pelo codigo...

Anderson_blumenau · Answer

Nao deu certo pra mim esse codigoprecisa declarar alguma biblioteca ou variavelEstas por exemploFullRgnClienteRgnCombineRgn...

Paulo Ricardo · Answer

P� meu! s�o vari�veis do tipo INTEGER......

Cebikyn · Answer

[quote:86fece7998=�Paulo Ricardo�]P� meu! s�o vari�veis do tipo INTEGER...[/quote:86fece7998]

Na verdade s�o do tipo [b:86fece7998]THandle[/b:86fece7998]. Eis a declara��o delas:

private
  { Private declarations }
  FullRgn, ClientRgn, CtlRgn: THandle;

J� [b:86fece7998]CombineRgn[/b:86fece7998] � uma fun��o declarada na [i:86fece7998]unit[/i:86fece7998] Windows.pas.

Acho que declarando as vari�vei da forma indicada, deve resolver seu problema.

Anderson_blumenau · Answer

[quote:3107860588=�Paulo Ricardo�]P� meu! s�o vari�veis do tipo INTEGER... [/quote:3107860588]Inteiro? Antes de postar qualquer coisa tenha certeza do que est� dizendoZ�-GUED�...

Cebikyn · Answer

[quote:a9fb1a1688=�Anderson_Blumenau�][quote:a9fb1a1688=�Paulo Ricardo�]P� meu! s�o vari�veis do tipo INTEGER...[/quote:a9fb1a1688]Inteiro? Antes de postar qualquer coisa tenha certeza do que est� dizendoZ�-GUED�[/quote:a9fb1a1688]� verdade....

F�rum janela transparente #176345