Imagen de fondo en formulario

[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