Coordenadas en delphi

[darkmaster360]

Estaba intentando crear un autoclick y me preguntaba si se podría poner coordenadas, para clicar donde yo quiera, tenía este code antes:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
SetCursorPos(X, Y);
Mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0 );
Mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0 );
end;

pero solo me dejaba cambiar las coordenadas en modo edición, ¿hay algún código para poder cambiarlas mientras lo usando?

[ecfisa]

Empezado por darkmaster360

...
¿hay algún código para poder cambiarlas mientras lo usando?

Hola darkmaster360, bienvenido a Club Delphi .

Como es costumbre con los que recién ingresan te invitamos a que leas nuestra guía de estilo.

En cuanto a tu consulta, claro que es posible cambiar las coordenadas en tiempo de ejecución, basta con asignar nuevos valores a las variables enviadas a la función SetWindowPos.

Pero, a priori veo que se te va a presentar un problema con la pérdida de foco que sufrirán los controles mediante los cuáles les asignas valores a las variables X e Y...

Saludos.

[darkmaster360]

Muchas gracias ecfisa, no sabía el nombre de la función. También me surgió otra duda, ¿Se puede poner el ratón en el sitio que desee y al darle a una tecla, con la función Onkeydown, se queden guardadas las coordenadas?

[ecfisa]

Empezado por darkmaster360

¿Se puede poner el ratón en el sitio que desee y al darle a una tecla, con la función Onkeydown, se queden guardadas las coordenadas?

Hola darkmaster360.

Si, sin ningún problema. Por ejemplo:

Código Delphi [-]
implementation

var
  MousePos : TPoint;

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

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  MSG = 'Coordenadas actuales del mouse: %d %d'; 
begin
  if (ssCtrl in Shift) and (Key = VK_F1) then  // Ctrl+F1
    MousePos := Mouse.CursorPos;
  Caption := Format(MSG,[MousePos.X, MousePos.Y]); 
end;

La declaración de constante y la asignación a la propiedad Caption son a fín de que visualices la posición actual, es decir prescindibles.

Saludos.

[darkmaster360]

Hola ecfisa.

El código funciona bien

Ahora al pulsar el F1 (le cambie la tecla) se quedan las coordenadas, ¿habría alguna forma ahora de decirle a un timer que clickee en esas coordenadas?

Estuve buscando un poco en google pero no encontré nada solo vi algo de la función caption

Saludos.

[ecfisa]

Empezado por darkmaster360

...
¿habría alguna forma ahora de decirle a un timer que clickee en esas coordenadas?

Hola.

Si, agregando el código de tu primer mensaje:

Código Delphi [-]
implementation

var
  MousePos : TPoint;

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  SetCursorPos(MousePos.X, MousePos.Y);
  Mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
  Mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  MSG = 'Coordenadas actuales del mouse: %d %d'; 
begin
  if (ssCtrl in Shift) and (Key = VK_F1) then  // Ctrl+F1
    MousePos := Mouse.CursorPos;
  Caption := Format(MSG,[MousePos.X, MousePos.Y]); 
end;

Saludos

[darkmaster360]

Hola ecfisa.

Ya está me funcionaba me faltaba añadir la línea:

Código Delphi [-]
SetCursorPos(MousePos.X, MousePos.Y);

y yo tenía:

Código Delphi [-]
SetCursosPos(X, Y);

puede que fuese eso pero ya esta solucionado, muchas gracias. Puedes cerrar el tema

Saludos