Insertar un boton en una ventana diferente.

[JuanErasmo]

Muchas Gracias por tu ayuda.
lo del hook, es estrictamente necesario?
Sabes por ejemplo como hace el MessengerPlus?
Lo que pasa es que trabajé con hook en alguna oportunidad, y detectaba las teclas, pero como detecto el evento Onclick en mi boton insertado????
Muchas Gracias!

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

[[escafandra]]

Empezado por JuanErasmo

lo del hook, es estrictamente necesario?

El problema es que cuando camies ep Parent de tu botón, el evento OnClick no te responderá, porque está en el entorno de memoria designado al nuevo proceso. Por este motivo debes arreglártelas, para conseguirlo, con un Hook.

HHOOK WHookMouse = 0;
LRESULT CALLBACK MouseHookCallBack(int Code, WPARAM wParam, LPARAM lParam);

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Hook()
{
   if(WHookMouse == 0)
     WHookMouse = SetWindowsHookEx(WH_MOUSE_LL, (HOOKPROC)MouseHookCallBack, HInstance, 0);
}

//---------------------------------------------------------------------------
void __fastcall TForm1::UnHook()
{

   UnhookWindowsHookEx(WHookMouse);
   WHookMouse = 0;

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
 
LRESULT CALLBACK
MouseHookCallBack(int Code, WPARAM wParam, LPARAM lParam)
{
   if(Code>=0){
     if(wParam == WM_LBUTTONDOWN){
       TPoint Point;
       ::GetCursorPos(&Point);
       HWND W = WindowFromPoint(Point);     
       if(W == Form1->Boton->Handle))
            BotonClick();   // Funcion que procese tu acción.    
       }
   }
   return CallNextHookEx(WHookMouse, Code, wParam, lParam);
}

Saludos.

Edito: Escribí de memoria y me he dado cuenta que cometí un pequeño error cambio Boton->Handle por Form1->Boton->Handle;
Todo este código debe estar en la misma unit.cpp
OnClick puede ser un método de Form1 si así lo quieres: entonces Form1->Onclick(); ...o como lo quieres llamar.