Creamos un Timer, por ejemplo, para la visualización, supongamos que con un intervalo de 100 y en el evento OnTimer un procedure de esta forma:
procedure TForm1.Timer1Timer(Sender: TObject);
var position:tpoint;
begin
getcursorpos(position);
label1.Caption:='X: '+inttostr(position.x)+' Y: '+inttostr(position.y);
end;
end.
Ważne artykuły