Insertar un boton en una ventana diferente.

[JuanErasmo]

Hola ,
He probado SetParent pero solo me pide un argumento.
Mire la ayuda, y no encuentro otro diferente,.....
tienes algun ejemplo de como usarlo?

Muchas Gracias!

[[escafandra]]

El SetParent que has usado no en el de la API sino el de las VCL, por eso el número de argumantos es diferente. Te puse el de la API al ser el foro de API, pero el de la CVL posiblemente sirva, sólo que en lugar de usar el Handel como parámetor, usas el control mismo. De todas formas yo prefiero usar la API cuando se mezclan cosas de la VCL con otras aplicaciones....

En C, para diferenciar una función fuera del ámbito, se colocan dobles puntos ::SetPatern(0, Handle). No se cómo será en delphi, pero debe tener una sintáxis específica y sencilla.

Saludos.

[JuanErasmo]

Mira, que he utilizado este codigo:

 HWND h;
      //  begin
                h = (FindWindow("Shell_TrayWnd", 0));
              /*  b := TButton.Create(nil);
                b.ParentWindow := h;
                b.Caption := 'Inicio';
                b.Width := 60;
                b.font.style := [fsbold];
                */
              Boton->Parent = h;
              Boton->Caption = "HOLA";
              Boton->Width=60;
              Boton->Top=60;

pero me aparece que no se puede convertir void a TWinCOntrol.....

como se puede solucionar esto?

[JuanErasmo]

Exactamente el error esta en Boton->Parent = h;

como se convierte HWND a TWinControl?

Gracias!

[JuanErasmo]

Estoy intentando algo asi, pero no funciona....
[code][/::SetParent(Boton->Parent, (FindWindow("Shell_TrayWnd", 0)));

[[escafandra]]

Prueba esto:

HWND h = FindWindow(0, "Form2");
if(h){
   Boton->Caption = "HOLA";
   Boton->Width=60;
   Boton->Top=60;
   ::SetParent(Boton->Handle, h);
}

Saludos.

Edito:
Crea una aplicación de prueba con un formulario Form2 y en lugar de FindWindow("Shell_TrayWnd", 0) coloca FindWindow(0, "Form2") para experimentar.