Creating a forms editor in Delphi
我的目标是创建一个简单的表单编辑器,就像我们在 Delphi IDE 上找到的那样。
现在用户可以选择和添加组件,使其成为 TPanel 的父级,TPanel 是表单的持有者。为简单起见,也请考虑将 TPanel 作为添加到表单的可视组件。
我有 2 个缺失的部分,我想找出一些想法/代码来帮助完成:
1 - 如何移动创建的可视化组件?与 IDE 中用于移动可视组件(例如 Tpanel)的效果相同,左右移动其顶部和左侧位置
2 - 如何在表单编辑器上为组件绘制钩子
3 - 如何使用钩子调整大小
我只想要与处理视觉部分相关的部分。我没有生成 DFM 或类似的东西。
简单地把你的移动代码需要这样做:
这就是它的全部内容。主要的细微差别是您还必须记住拖动开始时鼠标的 X、Y 值。所以在你的
1 2 | FStartMousePos := Point(X, Y); FStartDragControlPos := Point(FDragControl.Left, FDragControl.Top); |
然后在
1 2 | FDragControl.Left := FStartDragControlPos.X + (X-FStartX); FDragControl.Top := FStartDragControlPos.Y + (Y-FStartY); |
您还需要在开始拖动时捕获鼠标。
调整大小的代码类似。同样,您需要在
至于绘画,每当您的事件处理程序之一更改将影响表单视觉外观的属性时,您都需要强制重新绘画。您可以使用
我没有编写完整的工作实现,因为您的问题是高级和概念性的。实施取决于您。
// 我已将其作为答案,因为我刚刚阅读了您的最新更新,该更新确实应该作为对您原始问题的编辑,但无论如何。
您可以下载 Cindy 组件包并使用 cyResizer 组件,该组件几乎可以满足您的所有需求,并且还可以自定义。
您可以从这里下载它:http://sourceforge.net/projects/tcycomponents/
寻找更多答案我可以找到这些文章:
如何在运行时移动和调整控件大小
http://delphi.about.com/library/weekly/aa102505a.htm
如何为在运行时调整大小的控件添加大小句柄
http://delphi.about.com/library/weekly/aa110105a.htm
几乎所有信息都可以通过源代码示例完成此任务。
这些文章展示了如何实现和使用 TMover 类。我已经完成并且工作正常。
我还下载了 TcyComponents 包并使用了 TcyResizer。它是一个功能齐全的表单编辑器,几乎包含了类似 Delphi 的表单编辑器所需的一切。我建议。它带有源代码,适用于 XE2 版本。