Agregar boton con imagen

[[escafandra]]

A pesar de que lo solucionaste, quiero ilustrar el ejemplo que puse en C++Builder:

Empezado por escafandra

Un ejemplo con un TBitBtn:

    
    TBitBtn* B = new TBitBtn((void*)NULL);
    B->Left = 100;
    B->Top =  100;
    B->Width = 75;
    B->Height = 25;
    B->Parent = this;
    ::SetParent(B->Handle, Panel1->Handle);  // Lo pasa a otro ventana

Saludos.

Lo traduzco a delphi. Probado en delphi 6:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  B:  TBitBtn;
begin
    B:= TBitBtn.Create(nil);
    B.Left:= 10;
    B.Top:=  10;
    B.Width:=Image1.Picture.Width;
    B.Height:= Image1.Picture.Height;
    B.Parent:= self;
    B.Glyph:= Image1.Picture.Bitmap;

   // Lo pasa a otra ventana, en este caso un panel, pero podría ser cualquiera dado su Handle
    Windows.SetParent(B.Handle, Panel1.Handle);  
end;

Saludos.