Insertar un boton en una ventana diferente.

[JuanErasmo]

Buenas tardes amigos.

Estoy intentando insertar un boton, o un menu en una aplicacion externa,
pero no es tan senciloo como creia.....


Alguno de ustedes tiene un ejemplo de como se hace? y con que herramienta puede ser mejor, Delphi, Builder, Visual Studio,.,,,,etc....
La finalidad es para hacer algo como el Messenger Plus.

Gracias!!!

[[escafandra]]

Hola JuanErasmo, ¿Has probado HWND SetParent(HWND hWndChild, HWND hWndNewParent);?
Claro que esto simplemente te mostraría el botón en esa ventana.

Lo siguiente quizás pase por hacer un Hook que detecte que se pulsa ese botón para realizar la acción correspondiente. Ese Hook puede ser del tipo WH_CALLWNDPROC o quizás mas directo con el WH_MOUSE_LL y luego detectar la ventana WindowFromPoint sabiendo la posición del ratón (GetCursorPos) y el Handle de nuestro botón, si coinciden... Pues se ejecuta nuestra acción.

Espero haberte servido de alguna ayuda, al menos es una idea.

Saludos.

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