Imagen de fondo en formulario

[aguml]

Hola amigos, tengo un form al que le quiero poner una imagen como fondo pero el problema es que en dicho form tengo TPanels y objetos similares y al ejecutar los objetos de ese tipo no son transparentes y tapan la imagen de fondo del form. ¿Que debo hacer para que esos elementos sean transparentes?

[aguml]

He encontrado esto en Delphi: https://stackoverflow.com/questions/...el-transparent
Pero no entiendo nada.
Y esto en builder: http://www.delphigroups.info/3/2/174853.html
Pero tampoco soy capaz de entender lo que hace aunque creo que lo que hace es crear un nuevo componente TPanel y crearle la propiedad de transparencia pero no sé bien que hace y me gustaría que alguien pudiera ayudarme a hacerlo funcionar porque la cuestión no es copiar y pegar código sino entenderlo.
¿Podéis ayudarme?

[Neftali [Germán.Estévez]]

Los componentes de la VCL no están pensados inicialmente para soportar transparencias, así que todo lo que hagas en ese sentido deberá ser "manual" y seguramente no muy eficiente.
¿Tienes posibilidad de usar en este caso FireMonkey? Te facilitaría mucho las cosas.

[aguml]

La verdad es que no sé ni qué es eso. ¿No hay componentes de terceros que ofrezcan esa opción? He estado mirando los de alpha skins y alguno más pero no veo cómo hacerlo transparente.

[ecfisa]

Hola.

Derivando de un TPanel te hice un ejemplo básico como para que puedas ir trabajando sobre él:

Código PHP:

...

class TPanelClear : public TPanel {
protected:
  void __fastcall CreateParams( TCreateParams &Params ) {
     TPanel::CreateParams( Params );
     Params.ExStyle |= WS_EX_TRANSPARENT;
  }
  void __fastcall Paint() {
    HDC DC   = Canvas->Handle;
    TRect R  = ClientRect;
    Graphics::TBitmap *BM = new Graphics::TBitmap;
    try {
      BM->Height = Height;
      BM->Width  = Width;
      Canvas->Handle = BM->Canvas->Handle;
      TPanel::Paint();
      Canvas->Handle = DC;
      Canvas->Brush->Style =  bsClear;
      Canvas->BrushCopy(R, BM, R, Color);
    }
    __finally {
      delete BM;
    }
  }
public:
   __fastcall TPanelClear( TComponent *Owner ) : TPanel( Owner ) {
    // ...
   }
   // ...
};


void __fastcall TForm1::btShowPanelClearClick(TObject *Sender)
{
  TPanelClear *pc = new TPanelClear(this);
  pc->Left    = 5;
  pc->Top     = 5;
  pc->Height  = 50;
  pc->Width   = 200;
  pc->Name    = "PanelClear1";
  pc->Caption = pc->Name;
  pc->Parent  = this;
} 


Muestra:


Saludos

[aguml]

La verdad es que no sabría hacer para crear lo que haces y me harías un gran favor si me describirse los pasos para hacerlo y me comentase que va haciendo el código. Nunca he creado un componente y estoy muy perdido para hacer lo que haces.