什么意思?不太明白,把我的一个范例给你参考:
unit U011825;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Sockets, NMUDP;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    NewPanel: TPanel; //如果你要加多个分割窗口,可以声明多个Panel和
    NewSplitter: TSplitter; //Splitter,再根据需要对程序做些修改就行了
    procedure AddSplitWindow(Panel: TPanel; Splitter: TSplitter);
    procedure DeleteSplitWindow(Panel: TPanel; Splitter: TSplitter);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
//按Button1添加分割窗口procedure TForm1.Button1Click(Sender: TObject);
begin
  NewPanel := TPanel.Create(Self);
  NewSplitter := TSplitter.Create(Self);
  AddSplitWindow(NewPanel, NewSplitter);
end;//按Button2删除分割窗口procedure TForm1.Button2Click(Sender: TObject);
begin
  DeleteSplitWindow(NewPanel, NewSplitter);
end;//添加分割窗口的过程procedure TForm1.AddSplitWindow(Panel: TPanel; Splitter: TSplitter);
begin
  Splitter.Parent := Self;
  Splitter.Align := alLeft;
  Panel.Parent := Self;
  Panel.Width := 100;
  Panel.Align := alLeft;
end;//删除分割窗口的过程procedure TForm1.DeleteSplitWindow(Panel: TPanel; Splitter: TSplitter);
begin
  Splitter.Free;
  Panel.Free;
end;
end.

解决方案 »

  1.   

    AutoSnap:=false即可
    MinSize为间隔的大小.
      

  2.   

    TO: xjl(jenlin) 请问什么是gz呢?
      

  3.   

    左边的panel的align设为alleft,splitter的align设为alleft,右边的panel的align设为alclient就行了gz就是关注的意思
      

  4.   

    左边的panel的align设为alleft,splitter的align设为alleft,右边的panel的align设为alclient就行了gz就是关注的意思
      

  5.   

    要使左面的panel留在一定范围,设定他的最大宽度和最小宽度就行了
      

  6.   

    设置Panel的Constraints 
      MaxWidth := ??
      MinWidth := ??
    就行了
      

  7.   

    我加了一个空的 Label 在左边。不过最好还是用 Splite 的 Width 或者 MinWidth 属性