Formularios transparentes

Si estais hartos de que vuestros formularios tengan el mismo aspecto soso de siempre podeis crear nuevos temas y skins tales como los reproductores BSPlayer, WinDVD, PowerDVD, etc.

Para ello tenemos aquí un procedimiento que toma como parámetro un formulario y que hará que todo su fondo sea transparente. Si queremos que algo no sea transparente lo ponemos dentro de un bitmap, shape o panel.

procedure TransparentarFormulario( Form: TForm );
var
  Region, RegionTemp: HRGN;
  i: Integer;
  Rect: TRect;
begin
  Region := 0;

  for i := 0 to Form.ControlCount - 1 do
  begin
    Rect := Form.Controls[i].BoundsRect;
    OffsetRect( Rect, Form.ClientOrigin.x - Form.Left, Form.ClientOrigin.y - Form.Top );
    RegionTemp := CreateRectRgnIndirect( Rect );

    if Region = 0 then
      Region := RegionTemp
    else
    begin
      CombineRgn( Region, Region, RegionTemp, RGN_OR );
      DeleteObject( RegionTemp );
    end;
  end;

  RegionTemp := CreateRectRgn( 0, 0, Form.Width,
                               GetSystemMetrics( SM_CYCAPTION )+
                               GetSystemMetrics( SM_CYSIZEFRAME )+
                               GetSystemMetrics( SM_CYMENU ) * Ord( Form.Menu <> nil ) );

  CombineRgn( Region, Region, RegionTemp, RGN_OR );
  DeleteObject( RegionTemp );
  SetWindowRgn( Form.Handle, Region, True );
end;

Quitando los margenes de la ventana con BorderStyle = bsNone ya tenemos un formulario completamente transparente donde sólo hay que insertarle los objetos que van a ser visibles.

Pruebas realizadas en Delphi 7.