delphi - 在 Delphi 中创建表单编辑器

Question

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

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

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

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

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

Answer 1

简单地说，您的移动代码需要执行以下操作:

1. 当鼠标按下时，检查鼠标位置是否位于可拖动的控件上方。如果是这样，则设置一个名为 FDragControl 的变量来引用该控件。此代码位于 OnMouseDown 事件处理程序中。
2. 当鼠标移动时，如果FDragControl不为nil，则移动控件。此代码位于 OnMouseMove 事件处理程序中。
3. 当鼠标抬起时，将FDragControl设置为nil。

这几乎就是全部内容了。主要的细微差别是，您还必须记住开始拖动时鼠标的 X、Y 值。因此，在您的 OnMouseDown 处理程序中编写:

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

然后在 OnMouseMove 中，您的位置代码如下:

FDragControl.Left := FStartDragControlPos.X + (X-FStartX);
FDragControl.Top := FStartDragControlPos.Y + (Y-FStartY);

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

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

对于绘制，只要您的事件处理程序之一更改了会影响表单视觉外观的属性，您就需要强制重新绘制。您可以使用FDragControl的值来决定是否使用控件的特殊绘图并指示它正在被拖动。调整大小也是如此。

由于您的问题是高层次和概念性的，所以我还没有编写完整的工作实现。实现取决于您。