在Delphi中创建表单编辑器

发布时间：2020-12-15 09:34:36 所属栏目：大数据来源：网络整理

导读：我的目标是创建一个简单的表单编辑器,就像我们在Delphi IDE上找到的那样. 现在,用户可以选择并添加组件,使其成为表单持有者的TPanel的父级.为简单起见,请将TPanel视为添加到表单中的可视组件. 我有2个缺少的部分,我想找出想法/代码来帮助完成： 1 – 如何移

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

现在,用户可以选择并添加组件,使其成为表单持有者的TPanel的父级.为简单起见,请将TPanel视为添加到表单中的可视组件.

我有2个缺少的部分,我想找出想法/代码来帮助完成：

1 – 如何移动创建的可视组件？与IDE相同的效果是移动可视组件,例如Tpanel,围绕它的顶部和左侧位置
2 – 如何使用焦点在表单编辑器上绘制组件的钩子
3 – 如何使用钩子调整大小

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

解决方法

只需将您的移动代码需要执行此操作：

>当鼠标按下时,检查鼠标位置是否在可以拖动的控件上.如果是,则设置名为FDragControl的变量以引用该控件.此代码位于OnMouseDown事件处理程序中.
>当鼠标移动时,如果FDragControl不是nil,则移动控件.此代码位于OnMouseMove事件处理程序中.
>当鼠标上升时,将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的值来决定是否使用控件的特殊绘图并指示它是否被拖动.同样适合调整大小.

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!