ScrollBox动态添加panel

50 | 问答知识库用户 |浏览356次
收藏|2014/05/17 22:00
我在程序中先设置了一个ScrollBox,然后向里面动态添加panel,结果滚动条不出来,求救,新手,没好多分,见谅一下啊

  ★★★ 问题补充 ★★★  (2012-7-3 9:55:43)
procedure TForm3.DisplayGroup(stringList: TStringList);
var
  Tmplbl: TLabel;
  Tmplb2: TLabel;
  i: integer;
  Tmpane: TPanel;

begin
  for i := 0 to stringList.Count - 1 do
  begin
    Tmpane := TPanel.Create(nil);
    Tmpane.Anchors := [akLeft, akTop, akright, akBottom];
     Tmpane.Left := 0;
      Tmpane.Top := 0;
    Tmpane.Top := i * (Tmpane.Height + 18) + 18;
    Tmpane.Name := 'test' + inttostr(i);
    Tmplbl := TLabel.Create(nil);
    Tmplbl.Caption := stringList[i];
    Tmplbl.Align := alLeft;
    Tmplbl.Parent := Tmpane;
    Tmplb2 := TLabel.Create(nil);
    Tmplb2.Caption := 'test';
    Tmplb2.Align := alLeft;
    Tmplb2.Parent := Tmpane;
    Tmpane.Parent := ScrollBox1;
      end;
end;

  ★★★ 问题补充 ★★★  (2012-7-3 9:56:25)
补充上源码,各位大神,帮我看一下,3q

满意回答

2014/05/18 09:38

要去掉
Tmpane.Anchors := [akLeft, akTop, akright, akBottom];

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...