delphi - 如何让两个控件各自占据其父区域的一半？

Question

我有一个附加了侧边栏（TPanel--> alRight）的应用程序，它在其中使用了 CategoryPanel（alClient）。此 CategoryPanel 恰好有 2 个未对齐的组。我想分享这两组的边界，这样它就会以 50/50 的比例填满整个面板空间。不幸的是，CategoryGroups 不支持设计时对齐，这迫使我每次想要测试它时都运行我的应用程序。我尝试将每个 CategoryGroup 设置为面板一半的高度，但它显示滚动条。（见图2）

如何以 50/50 的比例正确对齐/共享边界？

Answer 1

根据您的评论，您要运行此代码：

procedure TForm1.UpdateGroupHeights;
begin
  if not CategoryPanel1.Collapsed then
    CategoryPanel1.Height := CategoryPanelGroup1.ClientHeight div 2;
  if not CategoryPanel2.Collapsed then
    CategoryPanel2.Height := CategoryPanelGroup1.ClientHeight -
      CategoryPanelGroup1.ClientHeight div 2;
end;

每当您希望影响组布局的任何更改时。所以我认为你需要从以下事件中调用这个函数：

• 表单的OnCreate事件。
• 的OnResize事件TCategoryPanelGroup。
• 两个类别面板的OnCollapse和OnExpand事件。

虽然当一个面板折叠而另一个面板展开时，这看起来有点奇怪。就我个人而言，我会重新调整代码以填充所有可用空间。

if not CategoryPanel1.Collapsed then
  ;//nothing to do
if CategoryPanel1.Collapsed and not CategoryPanel2.Collapsed then
  CategoryPanel2.Height := CategoryPanelGroup1.ClientHeight-CategoryPanel1.Height;
if not CategoryPanel1.Collapsed and CategoryPanel2.Collapsed then
  CategoryPanel1.Height := CategoryPanelGroup1.ClientHeight-CategoryPanel2.Height;
if not CategoryPanel1.Collapsed and not CategoryPanel2.Collapsed then
begin
  CategoryPanel1.Height := CategoryPanelGroup1.ClientHeight div 2;
  CategoryPanel2.Height := CategoryPanelGroup1.ClientHeight-CategoryPanel1.Height;
end;