| aguml |
08-02-2021 13:12:38 |
Problemas al emular clic derecho
Buenas, quisiera emular un clic derecho a cualquier ventana externa y tengo esto:
Código PHP:
void __fastcall TForm1::ButtonRightClicClick(TObject *Sender)
{
if(EditHWND->Text != ""){
if(IsWindow( (HWND)EditHWND->Text.ToInt() )){
SendMessage((HWND)EditHWND->Text.ToInt(), WM_RBUTTONDOWN, 0, MAKELONG(coordenadasRelativas.x,coordenadasRelativas.y));
SendMessage((HWND)EditHWND->Text.ToInt(), BM_SETSTATE, 1, 0);
SendMessage((HWND)EditHWND->Text.ToInt(), WM_RBUTTONUP, 0, MAKELONG(coordenadasRelativas.x,coordenadasRelativas.y));
SendMessage((HWND)EditHWND->Text.ToInt(), BM_SETSTATE, 0, 0);
}
}
}
Ese método me va genial con el clic izquierdo pero con el derecho no funciona en todas partes, hay veces que no sale el popup o que incluso tengo que pasear el puntero por la ventana para que salga. ¿Alguna idea? |
