Delphi/Lazarus: Cómo determinar la Posición del Ratón

Sí, es posible. Incluso hay varias formas de hacerlo. En primer lugar, siempre puede utilizar Mouse.CursorPos.X y Mouse.CursorPos.Y para llegar a la posición actual del mouse en la pantalla. Por ejemplo así:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  x, y: integer;
begin
  x := Mouse.CursorPos.X;
  y := Mouse.CursorPos.Y;
  Caption := IntToStr(x) + ' ' + IntToStr(y);
end;

En este ejemplo, estamos usando un Timer para leer la posición del mouse a intervalos regulares y mostrarlos como título del formulario.

Sin embargo, muchos controles están ofreciendo directamente el evento OnMouseMove que automáticamente pone a disposición las variables X e Y. Entre otras, también cada Form ofrece este evento, por lo que también puede recuperar la posición del mouse de la siguiente manera:

procedure TForm1.FormMouseMove(Sender: TObject; 
  Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := IntToStr(X) + ' ' + IntToStr(Y);
end;

En este ejemplo, mostramos la posición actual del mouse como Caption de una Label cada vez que el mouse se mueve sobre el formulario.
23/10/2020 a las 06:42