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

问题描述

我有一个用框架制作的应用程序。 我在框架上有一个面板，我需要弄清楚如何浮动和停靠。 我不知道如何做到这一点。 我查看了 devexpress 停靠控件，但它们仅适用于表单。

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

1. 如何使面板可移动和调整大小。
2. 如何向框架添加对接逻辑？

任何帮助将不胜感激。

解决方法

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

面板始终可以在其容器（窗体、框架、另一个面板、滚动框等）内移动并且可以调整大小。您只需要更改其顶部、左侧、宽度和高度属性。要使其可拖动，您需要使用 MouseDown、MouseMove、MouseUp 事件，检测并处理需要拖动的鼠标使用。

您甚至可以通过更改其 Parent 属性将 TPanel 从其容器移动到另一个容器。例如，您可以将面板从一个 TForm 移动到另一个 TForm。这就是您用来使面板浮动的方法。

2) 浮动 TFrame

您不能将 TFrame 用作浮动表单。为此，您需要一个 TForm。

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