Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-09-2015
deliriun deliriun is offline
Miembro
 
Registrado: ago 2014
Posts: 51
Poder: 10
deliriun Va por buen camino
Question Guardar coordenadas y hacer Click

Hola qué tal?

Estoy desarrollando una aplicación en la cual ya llevo haciendo preguntas en este Foro para algunas cosas, y estoy muy agradecido con las respuestas que dan. Me han ayudado mucho.

Ahora quisiera como saber esto:

Al momento de Presionar una tecla como F1 guardar las coordenadas del mouse en ese momento(Fuera del Form).
Posteriormente presionar un button y que se haga un click en las coordenadas guardadas anteriormente.

Gracias de antemano.
Responder Con Cita
  #2  
Antiguo 27-09-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola deliriun
Cita:
Empezado por deliriun Ver Mensaje
...
Ahora quisiera como saber esto:

Al momento de Presionar una tecla como F1 guardar las coordenadas del mouse en ese momento(Fuera del Form).
Posteriormente presionar un button y que se haga un click en las coordenadas guardadas anteriormente.
Código Delphi [-]
...
implementation

var
  gCoord : TPoint = (X:-1; Y:-1);

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then
    gCoord := ClientToScreen(Mouse.CursorPos)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ti: array [0..1] of TInput;
  p : TPoint;
begin
  if (gCoord.X <> -1) and (gCoord.Y<>-1) then
  begin
    p := ScreenToClient(gCoord);
    SetCursorPos(p.X, p.Y);
    ZeroMemory(@ti, SizeOf(ti));
    ti[0].mi.dwFlags := MOUSEEVENTF_LEFTDOWN;
    ti[0].Itype      := INPUT_MOUSE;
    ti[1].mi.dwFlags := MOUSEEVENTF_LEFTUP;
    ti[1].Itype      := INPUT_MOUSE;
    SendInput(2, ti[0], SizeOf(TInput));
  end;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 27-09-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Cita:
Empezado por deliriun Ver Mensaje
Hola qué tal?
Al momento de Presionar una tecla como F1 guardar las coordenadas del mouse en ese momento(Fuera del Form).
Posteriormente presionar un button y que se haga un click en las coordenadas guardadas anteriormente.
Hola delirium.

Perdoname la curioisidad, se pueden saber mas detalles? Para que necesitas hacer eso? me resulta realmente intrigante
Responder Con Cita
  #4  
Antiguo 27-09-2015
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
Cita:
Empezado por AgustinOrtu Ver Mensaje
Hola delirium.

Perdoname la curioisidad, se pueden saber mas detalles? Para que necesitas hacer eso? me resulta realmente intrigante
Una posible respuesta: macro para juegos Lo cual es ilegal. Y que además hay juegos que detectan esto y los bloquean.
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #5  
Antiguo 28-09-2015
deliriun deliriun is offline
Miembro
 
Registrado: ago 2014
Posts: 51
Poder: 10
deliriun Va por buen camino
Se puede usar para programas que hagan ciertas funciones en la PC mientras tu estas ausente.

Como a cierta hora se realice una acción en la PC.
Responder Con Cita
Respuesta


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
Cierre inesperado de la aplicación al guardar las coordenadas en un archivo deneus FireMonkey 3 08-04-2015 13:38:17
Obtener Coordenadas X, Y en un DBGRID al hacer click lechefrita Conexión con bases de datos 3 09-03-2007 14:42:15
que componente de delphi me permite hacer una eje de coordenadas permanaente rls Gráficos 2 02-07-2006 01:27:05
Trabajar con x e y para guardar coordenadas y despues lelrlas con php Petolansa PHP 0 17-06-2006 18:36:38
Hacer click con el ratón Lightboy Varios 2 16-12-2003 11:38:16


La franja horaria es GMT +2. Ahora son las 20:05:40.


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