Delphi 11中Splitter控件不符合预期的问题排查

架构老林

2026-6-27

解决TSplitter拖动超出MinSize导致右侧Panel消失的问题

问题根源

你的布局异常是因为控件的对齐顺序错误：当TSplitter与TPanel都设置为alRight对齐时，VCL会按照控件在DFM中的定义顺序处理布局逻辑。当前Splitter1在Panel2之前，导致Splitter的MinSize约束无法正确绑定到Panel2，拖动超过阈值后Panel2会被完全挤压消失。

解决方案

调整DFM中控件的定义顺序，将Panel2放在Splitter1的前面，让Splitter正确约束右侧Panel的最小宽度。

修改后的DFM代码

object Form17: TForm17
Left = 0
Top = 0
Caption = 'Form17'
ClientHeight = 442
ClientWidth = 628
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
TextHeight = 15
object Panel2: TPanel
 Left = 443
 Top = 0
 Width = 185
 Height = 442
 Align = alRight
 Caption = 'Panel2'
 TabOrder = 1
 ExplicitLeft = 448
 ExplicitTop = 128
 ExplicitHeight = 41
end
object Splitter1: TSplitter
 Left = 440
 Top = 0
 Height = 442
 Align = alRight
 MinSize = 150
 ExplicitLeft = 360
 ExplicitTop = 216
 ExplicitHeight = 100
end
object Panel1: TPanel
 Left = 0
 Top = 0
 Width = 440
 Height = 442
 Align = alClient
 Caption = 'Panel1'
 TabOrder = 0
 ExplicitLeft = 64
 ExplicitTop = 104
 ExplicitWidth = 185
 ExplicitHeight = 41
end
end

单元代码无需修改

unit Unit17;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm17 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

end.