Transparencias en las ventanas

[[gluglu]]

Si la imagen es parte de ese Formulario, y el form tiene activas las propiedades que se indican anteriormente, todos los componentes de ese Form serán transparentes.

Tendríar que 'plantar' un Form diferente sobre ese otro Form que es transparente, y que te hiciera dicha función.

Para cualquier tipo de 'movimientos' tendrás que tomar en cuenta los eventos correspondientes para al mover el form transparente, mover también el otro form no transparente.

No sé si esto es lo que preguntabas.

[[escafandra]]

Manejando regiones se puede crear el efecto deseado:
Creamos un form con un Timage. En el Timage cargamos un bitmap y añadimos el código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

ADWord = array [0..0] of DWORD;
PADWord = ^ADWord;

var
  Form1: TForm1;


implementation

{$R *.dfm}
//---------------------------------------------------------------------------
procedure SkinControl(Control: TWinControl; bmp: TBitmap);
var
  TransparentColor: DWORD;
  rgn, rgnTemp: HRGN;
  ini, x, y: integer;
  Pixel: PADWord;
begin
  bmp.HandleType:= bmDIB;
  bmp.PixelFormat:= pf32bit;
  Control.SetBounds(Control.Left, Control.Top, bmp.Width, bmp.Height);

  TransparentColor:= PADWord(bmp.ScanLine[bmp.Height-1])[0];

  rgn:= CreateRectRgn(0, 0, Control.Width, Control.Height);
  CombineRgn(rgn, rgn, rgn, RGN_DIFF);

  for  y:=0 to bmp.Height-1 do
  begin
    Pixel:= PADWord(bmp.ScanLine[y]);
    ini:= 0;
    for x:=0 to bmp.Width-1 do
    begin
       if pixel[x] <> TransparentColor then
       begin
         rgnTemp:= CreateRectRgn(ini, y, x, y+1);
         CombineRgn(rgn, rgn, rgnTemp, RGN_OR);
         DeleteObject(rgnTemp);
         ini:= x;
       end
       else inc(ini);
    end;
  end;
  SetWindowRgn(Control.Handle, rgn, true);
  DeleteObject(rgn);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle:= bsNone;
  Image1.AutoSize:= false;
  Image1.Left:= 0;
  Image1.Top:= 0;
  SkinControl(self, Image1.Picture.Bitmap);

end;

end.

Saludos.