Mausposition in Paintbox

[semo]

einfach das mouseMove-event der PaintBox verwenden!
darin dann die x und y koordinate ausgeben lassen:

Code:

procedure TTestform.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  Caption := IntToStr(X) + ' *** ' + IntToStr(Y);
end;