Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 23-11-2009
Avatar de aeff
aeff aeff is offline
Miembro
 
Registrado: oct 2006
Ubicación: Cuba, Guantánamo
Posts: 348
Poder: 20
aeff Va camino a la fama
saludos nuevamente, mira, te puedo dar otra solución, existe una API propia de Windows que permite invocar eventos del Mouse, dicha API es: mouse_event:

solo debes posicionar el cursor sobre la region de dicho objeto "Boton", para esto puedes usar SetCursorPos y una vez situado el cursor sobre el objeto llamar a la API para simular un Click. Las coordenadas del objeto ya que pueder ser un objeto Gráfico como el SpeedButton de Delphi, puedes calcularlas obteniendo primeramente el "rectangulo" de la forma padre, con GetWindowRect, y luego sumar aproximadamente valores al rect.Left y al Rect.Top hasta acercarte a al area que ocupa el objeto.

Debes tener en cuenta que puede que la ventana no tenga el Foco, para esto puedes usar SetForegroundWindow para traerla al frente.

Te muestro un ejemplo que se acaba de ocurrir, con la misma Ventana Ejecutar dando Click en Boton Aceptar:

Código Delphi [-]
var
  hWnd: Cardinal;
  vRectWnd: TRect;
  vBtnPos:  TPoint;
begin
  // Obtenemos el manejador de la Ventana
  hWnd := FindWindow(nil, 'Ejecutar');
  GetWindowRect(hWnd, vRectWnd);
  // Calculamos aproximadamente la posicion del Boton
  vBtnPos.x  := vRectWnd.Left + 135;
  vBtnPos.y  := vRectWnd.Top + 148;
  // Movemos el Cursor a la posicion calculada
  SetCursorPos(vBtnPos.x, vBtnPos.y);
  // Traemos la ventana al frente dandole el Foco
  SetForegroundWindow(hWnd);
  // Simulamos un Click
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);  // Press
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);    // Release

Puedes agregar otros detalles como capturar la posicion del cursor actual antes de simular el click y luego posicionar el cursor donde estaba orginialmente.

Que Crees??
Saludos,
AEFF!!
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Que al presionar escape se cierre la aplicacion yoennis Windows 3 06-02-2009 15:43:57
Aplicacion externa a c++ alloger C++ Builder 1 28-10-2006 00:37:09
Agregar texto a un formulario al presionar un boton. D-MO HTML, Javascript y otros 4 26-12-2005 20:03:49
ejecutar funcion php al presionar un boton de formulario ctronx PHP 5 21-12-2005 18:12:11
Como Presionar un Boton de una Aplicación a otra?????? AGAG4 Varios 2 13-01-2005 22:28:58


La franja horaria es GMT +2. Ahora son las 20:45:30.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi