控件太多的问题

[XXKKFF]

动态添加的控件太多, 显示不完,
我想把控件的parent设成一个scrollbox, 控件显示不完的时候自动出现滚动条, 要怎么设置?

[whisht]

创建控件时parent设置为scrollbox控件

[都先生]

同意楼上的哦

[XXKKFF]

[Quote=引用 5 楼 mayyang 的回复:]

拿label来说：
lbl := tlabel.create(scrollbox1);
lbl.parent := scrollbox1;
//设置lbl控件在scrollbox1中的位置，left和top都是相对srollbox1的边界
lbl.left := 0;
lbl.top := 0;
[/Quote]

还是不行啊
我要放的控件是TImage, 它的属性要不要怎么设置一下?
我设的是
imgCandidates[ind] := TImage.Create(scrlbxLuckydogs1);
imgCandidates[ind].Parent := scrlbxLuckydogs1;
imgCandidates[ind].Width := 1;
imgCandidates[ind].Height := 1;
imgCandidates[ind].Visible := True;
imgCandidates[ind].Proportional := true;
imgCandidates[ind].Stretch := true;
imgCandidates[ind].Anchors := [akLeft] + [akTop] + [akRight] + [akBottom];

[XXKKFF]

[Quote=引用 8 楼 xxkkff 的回复:]

引用 5 楼 mayyang 的回复:

拿label来说：
lbl := tlabel.create(scrollbox1);
lbl.parent := scrollbox1;
//设置lbl控件在scrollbox1中的位置，left和top都是相对srollbox1的边界
lbl.left := 0;
lbl.top := 0;


还是不行啊
我要放的控件是TIm……
[/Quote]
把
imgCandidates[ind].Stretch := true;
imgCandidates[ind].Anchors := [akLeft] + [akTop] + [akRight] + [akBottom];
两行去掉就可以了, 为什么呢?

[sxbug]

布局一下

控制好大小及位置

[hongss]

动态创建其实跟你直接放置差不多，都要考虑位置、大小

[mayyang]

拿label来说：
lbl := tlabel.create(scrollbox1);
lbl.parent := scrollbox1;
//设置lbl控件在scrollbox1中的位置，left和top都是相对srollbox1的边界
lbl.left := 0;
lbl.top := 0;

[mayyang]

把scrollbox的autoscroll属性设置成true，scrollbox就可以自动出现滚动条了。

[kevin_wzh]

按照楼上的办

[sunli_py]

[Quote=引用 6 楼 mayyang 的回复:]

把scrollbox的autoscroll属性设置成true，scrollbox就可以自动出现滚动条了。
[/Quote]
就这个

[formernetcn]

把scrollbox的autoscroll属性设置成true，scrollbox就可以自动出现滚动条了。

[无语孩童]

把scrollbox的autoscroll属性设置成true，scrollbox就可以自动出现滚动条了。

[mayyang]

function TFrmMain.createimage(left, top: integer;
imagename: string): TImage;
var
img : TImage;
pic : TPicture;
begin
try
img := TImage.Create(ScrollBox2);
pic := TPicture.Create;
pic.LoadFromFile(ExtractFilePath(Application.ExeName) + imagename);
img.Parent := ScrollBox2;
//绑定图片
img.Picture := pic;
img.Height := pic.Height;
img.Width := pic.Width;
img.Left := left;
img.Top := top;
result := img;
finally
FreeAndNil(pic);
end;
end;

[mayyang]

function TFrmMain.createimage(left, top: integer;
imagename: string): TImage;
var
img : TImage;
pic : TPicture;
begin
try
img := TImage.Create(ScrollBox2);
pic := TPicture.Create;
pic.LoadFromFile(ExtractFilePath(Application.ExeName) + imagename);
img.Parent := ScrollBox2;
//绑定图片
img.Picture := pic;
img.Height := pic.Height;
img.Width := pic.Width;
img.Left := left;
img.Top := top;
img.ShowHint := false;
img.Hint := '-';
result := img;
finally
FreeAndNil(pic);
end;
end;

[爱蹄子的羊头]

imgCandidates[ind].Anchors := [akLeft] + [akTop] + [akRight] + [akBottom];


这个没用啊。。。你这代码。。。 没意义

还不如这样

imgCandidates[ind].align := alClient;

[mayyang]

function TFrmMain.createimage(left, top: integer;
imagename: string): TImage;
var
img : TImage;
pic : TPicture;
begin
try
img := TImage.Create(ScrollBox2);
pic := TPicture.Create;
pic.LoadFromFile(ExtractFilePath(Application.ExeName) + imagename);
img.Parent := ScrollBox2;
//绑定图片
img.Picture := pic;
img.Height := pic.Height;
img.Width := pic.Width;
img.Left := left;
img.Top := top;
result := img;
finally
FreeAndNil(pic);
end;
end;

[mayyang]

不好意思，网络不好，多发了

[虾猫先生]

这个行
[Quote=引用 15 楼 warrially 的回复:]

imgCandidates[ind].Anchors := [akLeft] + [akTop] + [akRight] + [akBottom];


这个没用啊。。。你这代码。。。 没意义

还不如这样

Delphi(Pascal) code
imgCandidates[ind].align := alClient;
[/Quote]