自动调整面板上的停靠形式宽度/高度

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;

我不确定对接形式是什么，但您可能还需要设置它的位置。