自动调整面板上的停靠表单宽度/高度

Question

在我的一个应用程序中，面板上有 3 个停靠表单。

一切正常。 但是当我调整面板（面板在主窗体上）大小时，它变成了

我希望自动调整宽度/高度停靠 3 个表单，使它们全部显示而不是隐藏某些部分。

Answer 1

如果您想按比例调整所有停靠表单，那么挂钩到 Panel 的 OnResize 事件可能是最简单的。像这样的：

procedure Panel1Resize(Sender: TObject);
begin
  DockForm1.Width := Panel1.ClientWidth div 3;
  DockForm2.Width := DockForm1.Width;
  DockForm3.Width := Panel1.ClientWidth - (DockForm1.Width * 2);
end;

我不确定什么是停靠表单，但您可能还需要设置它的位置。