控件太多的问题

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

【AUCell打分】：评估一个基因集在单细胞转录组的每个细胞中特定的活性程度 AUCell使用曲线下面积来计算输入基因集的一个有意义的基因子集是否在每个细胞的表达基因中富集。AUC 分数在所有细胞中的分布允许探索特征的相对表达。由于评分方法是基于排名的，因此 AUCell 与基因表达单位和归一化程序无关。此外，由于细胞是单独评估的，因此可以很容易地应用于更大的数据集。阅读详情

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

...全文

Cloudflare 5秒盾逆向实战：从503到cf_clearance的全流程拆解（附避坑指南）本文深入拆解了Cloudflare 5秒盾的完整逆向流程，从首次503响应到最终获取cf_clearance令牌，详细解析了五层挑战机制。文章重点分享了实战中的核心避坑指南，包括时间戳校验、动态图片尺寸获取、会话保持方案选择以及复杂环境检测的应对策略，为开发者提供了一套绕过5秒盾的实用方法论。阅读详情

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控件

控件太多的问题

相关推荐