使用delphi将面板停靠在框架中

Question

我有一个用画框做的申请。我有一个面板的框架，我需要解决如何浮动和停靠。我不知道该怎么做。我看了devexpress对接控件，但它们只使用表单。

所以我想我需要解决两个问题。

1. 如何使面板可移动和调整大小。
2. 如何将对接逻辑添加到帧中？

任何帮助都将不胜感激。

Answer 1

1) TPanel可移动和可调整大小的

面板在其容器内总是可移动的(窗体、框架、另一个面板、滚动框、.)而且是可以适应的。你只需改变它的顶部，左边，宽度和高度属性。要使其具有可拖动性，需要使用MouseDown、MouseMove、MouseUp事件，检测并处理鼠标所需的拖动。

您甚至可以通过更改其父属性将TPanel从其容器移动到另一个容器。例如，可以将面板从TForm移动到另一个TForm。这就是你要用来让你的面板浮动的东西。

2)浮动TFrame

不能将TFrame用作浮动窗体。为此您需要一个TForm。

请注意，您可以像使用TForm一样使用TFrame。使用CreateParented创建表单，并将其像TFrame一样附加到容器中。