Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-08-2004
Keiso Keiso is offline
Miembro
 
Registrado: ago 2004
Ubicación: Bolivia
Posts: 20
Poder: 0
Keiso Va por buen camino
Vale, Neftalí ya te mencionó sobre GetCursorPos y SetCursorPos, pero lo que necesitas es un Hook a nivel de sistema, existe un buen ejemplo en Trucomanía

www.q3.nu/trucomania

Saludos

Keiso
Responder Con Cita
  #2  
Antiguo 19-08-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Aunque un Hook suena razonable resulta un poco complicado y en teoría requiere instalarse en una dll. Una manera de obtener la posición del cursor en 'casi' todo momento sin importar dónde esté es mediante un Timer:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := Format('(%d, %d)', [Mouse.CursorPos.X, Mouse.CursorPos.Y]);
end;

Digo 'casi' pero si se pone Timer.Interval suficientemente pequeño ni quien se de cuenta .

Por otra parte, el doble click se puede emular así:

Código Delphi [-]
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

// Saludos
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 22:58:22.


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