Coordenadas en delphi

[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