在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()。

Answer 2

将一个油漆盒拖放到窗体上，然后在油漆盒控件 OnPaint 事件中编写一些代码，如下所示：

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
 pb:TPaintBox;
 h,w:Integer;
begin
    pb := TPaintBox(Sender);
    h := pb.Height;
    w := pb.Width;
    pb.Canvas.Ellipse( 10, 10, w-10, h-10 );
end;

无法直接从 FormMouseDown 进行绘制。因此，在 FormMouseDown 中添加一些代码来捕获坐标，将它们存储在变量中，然后使您的油漆盒控件 (Paintbox1.Invalidate) 无效，并且椭圆将由油漆盒控件绘制。 （例如，如果需要，您可以将颜料盒放在另一个控件的顶部）。

Answer 3

我不完全理解这个问题，但我可以看到一件事是错误的。您不能指望在鼠标按下事件中在表单画布上进行绘制，并希望您绘制的内容会保留下来。在 Windows 中绘画根本就不是这样的。您需要绘制表单以响应 WM_PAINT 消息。

没有与窗口关联的持久绘图表面。当需要绘制窗口时，系统会将 WM_PAINT 消息发送到消息队列。然后您必须绘制窗口的当前状态。

在您的情况下，实现此目的的最简单方法是响应鼠标消息绘制到离屏位图，然后在绘制周期中显示该位图。您可以通过在窗体上放置 TPaintBox 并处理 OnPaint 事件来访问绘制周期。在这种情况下，只需将位图绘制到油漆盒画布上即可。

每当更新位图时，您都需要使绘画框重新绘画。通过调用绘画框的 Invalidate 方法来完成此操作。

我建议阅读 Petzold 的书Programming Windows，以全面了解 Windows 中绘画的工作原理。