我有一个对话框,对话框上有一个TPageControl,在TPageControl的第一页上,动态生成一些Label控件和Edit控件,如果动态生成的空间多,就显示不全。我现在想加一个TScrollBar来滚动显示,请问该怎么做???下边是form 的Create的动态生成控件代码: for i:=1 to 20 do
begin
//动态生成Label控件
lbl:= TLabel.Create(Application);
lbl.Parent := PageControl1.Pages[0];
lbl.Caption := inttostr(i);
lbl.Height := 12;
lbl.Top := (i-1)* lbl.Height + (i-1)*11 + 17 ; end;
begin
//动态生成Label控件
lbl:= TLabel.Create(Application);
lbl.Parent := PageControl1.Pages[0];
lbl.Caption := inttostr(i);
lbl.Height := 12;
lbl.Top := (i-1)* lbl.Height + (i-1)*11 + 17 ; end;
不好意思,纠正下。