Cita:
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 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.