delphi中如何用鼠标移动圆圈？

Question

delphi中如何用鼠标移动圆圈？

circle:Shape;

Answer 1

请务必使用 ClientToScreen 和 ScreenToClient 将从 Control 上的 MouseMove 获取的鼠标 X、Y 客户端坐标转换为父级客户端。

以下过程将 Control 的中心移动到其客户端坐标中的点 (X,Y)：

procedure MoveControl(AControl: TControl; const X, Y: Integer);
var
  lPoint: TPoint;
begin
  lPoint := AControl.Parent.ScreenToClient(AControl.ClientToScreen(Point(X, Y)));
  AControl.Left := lPoint.X - AControl.Width div 2;
  AControl.Top := lPoint.Y - AControl.Height div 2;
end;

现在，要在单击 TShape 时移动 TShape，您必须提供以下 MouseMove 事件处理程序：

procedure TForm1.ShapeToMoveMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then // only move it when Left-click is down
    MoveControl(Sender as TControl, X, Y);
end;

要测试它，请放置一个使用以下代码在表单中添加按钮：

procedure TForm1.ButtonTestClick(Sender: TObject);
begin
  with TShape.Create(nil) do
  begin
    Name := Format('ShapeToMove%d',[Self.ControlCount + 1]);
    Parent := Self; // Parent will free it
    Shape := stCircle;
    Width := 65;
    Height := 65;
    OnMouseMove := ShapeToMoveMouseMove;
  end;
end;

现在，这是一个极简示例，但它应该可以帮助您入门。
为了好玩，只需使用此 MouseMove 事件处理程序挂钩其他控件...:-)

Answer 2

如果您访问我的网页，您可以找到一些示例（全部包含代码），它们可以帮助您解决这个问题。
“带有图形和平面图的视觉作品示例”；使用两个组件来直观地管理、移动、调整大小和保存元素；一种用于选择、移动、调整大小……（TSeleccOnRuntime），另一种（TSaveComps）用于保存状态（位置、大小……）。
替代文本 http://neftali-mirror.site11.com/images/imagen_ej_restaurante.png

直观地选择形状；用于解释选择视觉形状和图像的两种模式的示例。

在运行时（如 IDE）上创建、移动和响应控件； TSeleccOnRuntime 组件的另一个示例。模拟和IDE。

替代文本 http://neftali-mirror.site11.com/images/image_ej_form_designer.png

最后是另一个在运行时创建/销毁组件并用鼠标移动示例；该样品是在没有任何组件的情况下制作的。示例中的所有代码。

替代文字 http://neftali-mirror.site11.com/images/imagen_ej_mover_mouse.png

我希望对你有用。
问候

PD：请原谅我的英语不好。

Answer 3

好吧，我没有太多可说的，但是让某些东西移动来跟随鼠标通常是这样工作的：

在某处有一个“IsFollowingMouse”标志。当您应该跟随鼠标时将其打开。
在窗体的 MouseMove 事件上，执行如下操作：

procedure TMyForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if FIsFollowingMouse then
  begin
    myCircle.left := x + fShapeOffsetX;
    myCircle.top := y + fShapeOffsetY;
  end;
end;

偏移量是您使用的变量，用于给出鼠标指针位置与 TShape 左上角位置之间的差异。