Hola a todos!
He intentado buscar por el foro esto mismo, pero como son palabras bastante genéricas, el resultado de la búsqueda es bastante malo...
Os comento mi problema:
Tengo un formulario embedido en otro mediante un TPanel: es decir: el TPanel está en el formulario padre, y dentro de éste cargo otro formulario. El problema es que quiero que el formulario hijo sea transparente.
Para lograrlo he intentado dos métodos:
- Hacer el formulario hijo transparente (con la propiedad TransparentValue y TransparentColor) y acceder al canvas del panel mediante el truco de TPanel=class(ExtCtrls.TPanel) y pintarlo con la imágen que quiera.
- Olvidarme del color del panel y pintar el canvas del formulario directamente con la imágen que quiera.
Ambos métodos no me han funcionado. Ni errores ni cosas por el estilo, simplemente se ve siempre con el color clásico de los formularios de Windows...
La forma en que he implementado el segundo método (que personalmente es el que más me ha gustado) es la siguiente:
Código:
procedure TForm1.FormCreate(Sender: TObject);
for I := 0 to Self.Width - 1 do
for J := 0 to Self.Height - 1 do
Self.Canvas.Pixels[I,J]:=IMAGENZONAPRIVADA.Canvas.Pixels[I,J];
end;
donde IMAGENZONAPRIVADA es un TBitmap del mismo tamaño del formulario completamente rojo. Lo he hecho pixel a pixel ya que no me dejaba usar Self.Canvas.Assign(IMAGENZONAPRIVADA.Canvas) para que lo pintase todo de golpe...
¿Alguna idea?
Gracias de antemano,
LoPiTaL