Agregar boton con imagen

[pedrosan]

Hola, gracias por la sugerencia. Habia probado hacer con un SpeedButton pero tuve problemas a la hora de asignarle un ParentWindow ya que no posee esa propiedad y lo necesito dentro de una determinada ventana. Trate con la funcion SetParent, pero tengo problemas a la hora de obtener el Handle del speedbutton. Alguna de idea de como puedo asignar el speedbutton en tiempo de ejecucion a una ventana? De todas maneras voy a seguir probando, a lo mejor algo esoty haciendo mal. Gracias!

[[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.

[pedrosan]

Muchas gracias escafandra, excelente aporte como de costumbre Ahora bien, me esta costando un poco la equivalencia del código en DELPHI, sobre todo (void*)NULL, no se si lo estoy haciendo bien y parece me está trayendo problemas...si tenes a mano la equivalencia te lo agradecería,sino igual ya con la idea que me diste me va servir mucho... Muchas gracias nuevamente!

[[escafandra]]

(void*)NULL es un puntero nulo, equivalente a nil.

Saludos.

[pedrosan]

Al final logré agregarle imagen al boton creado con la funcion windowcreate. Aqui dejo el código:

//Creo el boton
B1 := CreateWindow('Button', '', WS_CLIPSIBLINGS or WS_BORDER or WS_VISIBLE or BS_PUSHBUTTON or BS_HOLLOW or WS_CHILD or BS_ICON,205, 2, 30, 25, hw, HMENU(WM_BUTTON_50),0,nil);

//envío mensaje para cargar imagen en el boton SendMessage(B1,BM_SETIMAGE,IMAGE_ICON,LoadImage(0,'C:\Image48x48.ico',IMAGE_ICON,0,0,LR_LOADFROMFILE ));


Saludos!

[[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.

[pedrosan]

Gracias por la respuesta escafandra, te comento que ya habia probado hacer algo como lo q indicas arriba, el tema es q el boton se me agregaba pero sin imagen, es decir un boton con fondo NEGRO,un boton todo negro, no se cual será el motivo, es por eso que decidi seguir intentando a traves de funciones de la api de windows hasta q salió je. A lo mejor tuve ese problema por el tipo de ventana a la que le agregaba el TBitBtn boton, no era un panel común, es una ventana de otra aplicacion, en fin...

Cambiando un poco de tema, ahora estoy intentando crear el boton pero "redondeado"...intenté con el siguiente código pero nada Primero que nada me gustaría saber si es posible hacer para asi poder seguir investigando y probando. Dejo el código que se me ocurrio pero no funciona je:

Código Delphi [-]
B1 := CreateWindow('Button', '',WS_VISIBLE or WS_CHILD {or WS_DLGFRAME´}  or BS_FLAT or BS_ICON ,205, 2, 30, 25, hw, HMENU(WM_BUTTON_50),0,nil);       
      
//envío mensaje para agregar imagen al boton
SendMessage(B1,BM_SETIMAGE,IMAGE_ICON,LoadImage(0,'C:\Imagen_48x48.ico',IMAGE_ICON,80,80,LR_LOADFROM  FILE)); 
      
windows.GetClientRect(B1,rcClient);      
RoundRect(GetDC(B1),rcClient.Left,rcClient.Top,rcClient.Right,rcClient.Bottom,20,20); 
windows.RedrawWindow(B1,@rcClient,hw,RDW_UPDATENOW);

Algún aporte??muchas gracias!

Saludos!