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

Question

我有一個用框架制作的應用程序。 我在框架上有一個面板，我需要弄清楚如何浮動和停靠。 我不確定如何做到這一點。 我查看了 devexpress 對接控件，但它們僅適用於 forms。

所以我認為我需要解決2個問題。

1. 如何使面板可移動和調整大小。
2. 如何將對接邏輯添加到框架？

任何幫助將不勝感激。

Answer 1

1) TPanel 可移動和可調整大小

面板始終可以在其容器（窗體、框架、另一個面板、滾動框...）內移動並且可以調整大小。 您只需更改其頂部、左側、寬度和高度屬性。 要使其可拖動，您需要使用 MouseDown、MouseMove、MouseUp 事件，檢測並處理所需的鼠標使用來拖動。

您甚至可以通過更改其 Parent 屬性將 TPanel 從其容器移動到另一個容器。 例如，您可以將面板從 TForm 移動到另一個 TForm。 這就是您將用於使面板浮動的內容。

2）浮動TFrame

您不能將 TFrame 用作浮動表單。 為此，您需要一個 TForm。

請注意，您可以像使用 TFrame 一樣使用 TForm。 使用 CreateParented 創建表單並將其附加到 TFrame 等容器。