有没有办法在Canvas上激活可见坐标系？

Question

有没有特殊的方法来查看Delphi中TPaintBox（Canvas）上的坐标（x，y）？我知道（0; 0）点在画布的左上方，但我想知道我们是否可以看到其他数字。提前致谢。

Answer 1

你可以通过这种方式看到表格标题上的坐标;

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

当您离开PaintBox 1时，标题将显示最后的坐标。