控件太多的问题

2011-12-25 06:44:46 357 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SUMO从入门到精通：手把手教你用开源工具完成智能网联车仿真（附Python接口教程）本文提供了一份SUMO开源交通仿真工具的完整实战指南，从环境搭建、基础仿真到Python接口TraCI的深度应用。重点讲解了如何利用SUMO的高度可定制性进行智能网联车仿真，包括实现动态信号优先等核心算法，并介绍了与网络仿真器集成以构建高保真车联网通信环境的方法。阅读详情

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

...全文

【Telephony】Telephony总纲！Phone进程流程(AOSP) 整个Framework层的Telephony框架运行在一个叫做Phone（com.android.phone）的进程中。 Phone进程启动的过程中，会初始化非常多的分支功能，SIM卡流程初始化就是其中之一，所以我觉得有必要写一下Phone进程的框架阅读详情

XXKKFF

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

虾猫先生 2011-12-30

打赏
举报

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

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

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

还不如这样

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

mayyang 2011-12-30

打赏
举报

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

mayyang 2011-12-28

打赏
举报

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;

爱蹄子的羊头 2011-12-28

打赏
举报

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

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

还不如这样

imgCandidates[ind].align := alClient;

mayyang 2011-12-28

打赏
举报

mayyang 2011-12-28

打赏
举报

无语孩童 2011-12-27

打赏
举报

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

formernetcn 2011-12-27

打赏
举报

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

sunli_py 2011-12-27

打赏
举报

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

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

kevin_wzh 2011-12-26

打赏
举报

按照楼上的办

mayyang 2011-12-26

打赏
举报

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

mayyang 2011-12-26

打赏
举报

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

hongss 2011-12-26

打赏
举报

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

sxbug 2011-12-26

打赏
举报

布局一下

控制好大小及位置

XXKKFF 2011-12-26

打赏
举报

[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];
两行去掉就可以了, 为什么呢?

XXKKFF 2011-12-26

打赏
举报

[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];

都先生 2011-12-25

打赏
举报

同意楼上的哦

whisht 2011-12-25

打赏
举报

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

控件太多的问题

相关推荐