delphi - 在Delphi中调用FormMouseDown

Question

我有一张图片的缩略图。我已经编写了代码，一旦用户单击此按钮，就会在 Delphi 中重新绘制此图像。然而，要求是用户可以单击缩略图，并且可以单击表单中的任意位置来创建图像。

例如，假设我有一个圆形图像的缩略图，现在用户应单击此缩略图，然后单击表单中的某个位置，然后应该会出现圆形。

为此我知道我们需要使用

TForm1.FormMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState;X, Y: Integer) ;

我不知道如何向此发送 X,Y 坐标？例如:

procedure TMDIChild.FormMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState;X, Y: Integer);
begin
  Canvas.Ellipse(x-20,y-20,x+20,y+20) ;
end;

当单击缩略图后在表单中的某处单击左键单击按钮时，应绘制一个椭圆(圆形)。但是 x,y 应该是当前鼠标指针，用户单击缩略图后如何获取当前鼠标指针？

非常感谢您的帮助。

谢谢，吉里达尔。

Answer 1

你可以试试

Mouse.CursorPos.x and Mouse.CursorPos.y

如果您想更改坐标(屏幕或表单)的原点，您应该使用 ScreenToClient() 或 ClientToScreen()。