如何使用 Delphi 的 TSplitter 和面板避免这种不需​​要的行为？

Question

其中包括一个展示我的问题的小项目。我有一个与主窗体对齐的TPageControl。在两个选项卡中的每一个上，我都有客户端对齐的面板。在每个面板上我都有 2 个子面板和一个分离器。左侧面板和分离器向左对齐，右侧面板与客户端对齐。

基本上问题是两个选项卡之间的交互。演示：

• 运行程序
• 水平拉伸主窗体。面板 3 会将
• 分离器尽可能向右移动。面板 2 将增大，面板 3 将缩小至其 10 像素最小宽度限制。
• 选择选项卡2。面板5按照设计，面板6在主窗体拉伸时变大，
• 将主窗体宽度减少到其原始宽度。面板 6 收缩太多（不合需要），
• 单击选项卡 1。主窗体宽度再次增加（不合需要）

好的，该行为可能可以用对齐面板的规则来解释，但是有人可以建议改进操作吗？

unit Unit17;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls;

type
  TForm17 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    Panel4: TPanel;
    Splitter2: TSplitter;
    Panel5: TPanel;
    Panel6: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

end.


object Form17: TForm17
  Left = 0
  Top = 0
  Caption = 'Form17'
  ClientHeight = 254
  ClientWidth = 314
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 314
    Height = 254
    ActivePage = TabSheet1
    Align = alClient
    Constraints.MinWidth = 30
    TabOrder = 0
    ExplicitWidth = 480
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      ExplicitWidth = 281
      ExplicitHeight = 165
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 306
        Height = 226
        Align = alClient
        Caption = 'Panel1'
        TabOrder = 0
        ExplicitWidth = 109
        ExplicitHeight = 165
        object Splitter1: TSplitter
          Left = 151
          Top = 1
          Width = 12
          Height = 224
          ExplicitLeft = 145
        end
        object Panel2: TPanel
          Left = 1
          Top = 1
          Width = 150
          Height = 224
          Align = alLeft
          Caption = 'Panel2'
          Constraints.MinWidth = 10
          TabOrder = 0
        end
        object Panel3: TPanel
          Left = 163
          Top = 1
          Width = 142
          Height = 224
          Align = alClient
          Caption = 'Panel3'
          Constraints.MinWidth = 10
          TabOrder = 1
          ExplicitLeft = 141
          ExplicitWidth = 330
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      ExplicitWidth = 281
      ExplicitHeight = 165
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 306
        Height = 226
        Align = alClient
        Caption = 'Panel4'
        TabOrder = 0
        ExplicitWidth = 109
        ExplicitHeight = 165
        object Splitter2: TSplitter
          Left = 149
          Top = 1
          Width = 11
          Height = 224
          ExplicitLeft = 141
        end
        object Panel5: TPanel
          Left = 1
          Top = 1
          Width = 148
          Height = 224
          Align = alLeft
          Caption = 'Panel5'
          Constraints.MinWidth = 10
          TabOrder = 0
        end
        object Panel6: TPanel
          Left = 160
          Top = 1
          Width = 145
          Height = 224
          Align = alClient
          Caption = 'Panel6'
          Constraints.MinWidth = 10
          TabOrder = 1
          ExplicitLeft = 141
          ExplicitWidth = 139
          ExplicitHeight = 163
        end
      end
    end
  end
end 

Answer 1

为了获得预期的行为，请从面板中删除约束 (MinWidth)。无论如何，这些设置目前无效，因为您的拆分器具有MinSize 为 '30'（默认值，不存储）。

编辑（对评论的回应）：您不能指望位于拆分器右侧的控件的“MinWidth”约束来调整左侧控件的大小。这是合乎逻辑的，约束是您设置的控件的属性。您将实现的只是，如果您的控件已经处于其“MinWidth”，则表单将拒绝缩小，因此您会观察到切换选项卡时表单变大的不良行为。正如 Marjan 在他的回答中所说，你想要什么，就必须与代码有关。应该有不止一种方法可以实现这一点，例如，将以下内容添加到 Panel3 的“OnCanResize”事件中：

procedure TForm1.Panel3CanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  if NewWidth < Splitter1.MinSize then
    Panel2.Width := Panel2.Width - Splitter1.MinSize + NewWidth;
end;

Answer 2

不一定是真正的答案，但有几点说明：

• MinSize 是一个左对齐的拆分器，与拆分器左侧和右侧的控件有关。您的面板 6 确实被调整为（略大于）其自己的 minWidth (10)，而不是分割器的 MinSize (30)。您可以更轻松地演示这一点，方法是在每个面板 2、3、5 和 6 上添加两个左对齐面板，并为其指定宽度 10 和 20 以及不同的颜色。

• 在减小主窗体的宽度后再次选择一个选项卡，主窗体会增大（哎呀），并且显示现在 Panel3 也已减小到其最小宽度，而不是拆分器的 minSize。

主窗体大小调整的解决方案？不知道，但确保面板的最小宽度与分离器的最小尺寸同步应该可以消除收缩。正如 Sertac 所说，我怀疑您只需要选择其中之一，而不是两者都选择...

更新：

• 将分离器的 minSize 设置为 30，并将面板的 minWidth 设置为 0。调整大小，但确实将右侧面板减少到 0 宽度。

• 将拆分器的 minSize 设置为 30 并将面板的 minWidth 设置为 30，可以解决最小宽度问题，但仍会调整主窗体的大小。

• 将面板的 minWidth 设置为 30，并将拆分器的 minSize 设置为 1（最小值），这样您就可以将拆分器一直向右移动，并在释放拆分器时根据面板的 minWidth 调整主窗体的大小。它确实可以防止 Panel6 减少到小于 30，但是当您重新选择选项卡 1 时，主窗体会再次调整大小。

看来您最好的选择是依靠拆分器的 minSize 并“手动”防止右侧面板减少到太远当分离器到达最右侧时限制分离器的移动。您可以在拆分器的 OnCanResize 事件中执行此操作。

顺便说一句，使用 D2009

Answer 3

void __fastcall TFMain::SplitterCanResize(TObject *Sender, int &NewSize, bool &Accept)
{
    TSplitter *S = (TSplitter*) Sender;
    for (int i = 0; Accept && i < S->Parent->ControlCount; i++)
        if (S->Parent->Controls[i]->Constraints->MaxHeight && S->Parent->Controls[i]->Align == S->Align && NewSize >= S->Parent->Controls[i]->Constraints->MaxHeight *2)
            Accept = false;
}

Answer 4

如果当表单较宽时，您将拆分器移至右侧较远的位置，然后减小表单的宽度，使其变得比左侧面板更窄（因此拆分器发现自己位于表单“外部”），那么表单的行为应该如何在这种情况下？有人问您关于理想行为的标准，到目前为止我在您的回答中只能看到您对不理想行为的理解。

现在，我曾多次担心调整带有面板和分隔符的表单大小可能产生的副作用。我没有对此进行太多调查，所以特别是我之前从未了解过像您的情况那样的自动调整大小效果。无论如何，为了防止大多数（如果不是任何）可能的行为假象，我考虑使用 TScrollBox 作为面板和拆分器的父控件，而不是 TPanel。

我相信，这会将表单大小的调整更改为滚动框客户区域大小的调整，如果我像您一样使用选项卡，那么在我使用拆分器的几个小项目中，这对我来说效果很好。但我无法了解你的情况。我知道这更多的是一种解决方法，而不是解决您的问题。