关于vcl：在Delphi中创建一个表单编辑器

Creating a forms editor in Delphi

我的目标是创建一个简单的表单编辑器，就像我们在 Delphi IDE 上找到的那样。

现在用户可以选择和添加组件，使其成为 TPanel 的父级，TPanel 是表单的持有者。为简单起见，也请考虑将 TPanel 作为添加到表单的可视组件。

我有 2 个缺失的部分，我想找出一些想法/代码来帮助完成：

1 – 如何移动创建的可视化组件？与 IDE 中用于移动可视组件(例如 Tpanel)的效果相同，左右移动其顶部和左侧位置
2 – 如何在表单编辑器上为组件绘制钩子
3 – 如何使用钩子调整大小

我只想要与处理视觉部分相关的部分。我没有生成 DFM 或类似的东西。

简单地把你的移动代码需要这样做：

当鼠标向下时，检查鼠标位置是否在可以拖动的控件上。如果是这样，则设置一个名为 FDragControl 的变量来引用该控件。此代码位于 OnMouseDown 事件处理程序中。

当鼠标移动时，如果 FDragControl 不为零，则移动控件。此代码位于 OnMouseMove 事件处理程序中。

当鼠标上升时，将 FDragControl 设置为 nil。

这就是它的全部内容。主要的细微差别是您还必须记住拖动开始时鼠标的 X、Y 值。所以在你的 OnMouseDown 处理程序中你写：

1 2	FStartMousePos := Point(X, Y); FStartDragControlPos := Point(FDragControl.Left, FDragControl.Top);

然后在 OnMouseMove 中，您的位置代码为：

1 2	FDragControl.Left := FStartDragControlPos.X + (X–FStartX); FDragControl.Top := FStartDragControlPos.Y + (Y–FStartY);

您还需要在开始拖动时捕获鼠标。

调整大小的代码类似。同样，您需要在 OnMouseDown 中决定要调整大小而不是拖动，但代码仍涉及处理鼠标向下、移动和向上事件。

至于绘画，每当您的事件处理程序之一更改将影响表单视觉外观的属性时，您都需要强制重新绘画。您可以使用 FDragControl 的值来决定是否使用控件的特殊绘图并指示它正在被拖动。同样用于调整大小。

我没有编写完整的工作实现，因为您的问题是高级和概念性的。实施取决于您。