什么意思?不太明白,把我的一个范例给你参考:
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.
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.
MinSize为间隔的大小.
MaxWidth := ??
MinWidth := ??
就行了