控件太多的问题

XXKKFF 2011-12-25 06:44:46
动态添加的控件太多, 显示不完,
我想把控件的parent设成一个scrollbox, 控件显示不完的时候自动出现滚动条, 要怎么设置?
...全文
356 18 打赏 收藏 举报
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
虾猫先生 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
  • 打赏
  • 举报
 回复
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;
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-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控件
安卓解决一屏控件太多无法显示完的问题
安卓解决一屏控件太多无法显示完的问题 在使用Android Studio进行安卓软件开发时，你是不是也习惯用LinearLayout布局来作为父布局，然后通过调整控件的大小来实现不同尺寸手机的适配呢？也许在控件少和控件大小没有要求的情况下这种方案是完全可以的，但是当一屏的控件变得很多或者对某些控件的大小有明确要求的时候，那么这时在用上述的方案就将出现控件丢失或者某些控件元素显示不完全的尴尬局面。那么我们又该如何去解决这个问题呢？这时就要用到一个非常神奇的布局了，没错就是ScrollView。接下来我将分别
winform 控件太多，加载卡顿问题
https://blog.csdn.net/yue1453544229/article/details/106867636/ protected override CreateParams CreateParams { get { CreateParams cp = base.CreateParams; cp.ExStyle |= 0x02000000; // 用双缓冲绘制窗口的所有子控件 return cp; } }
winform 窗口伸缩 panel控件太多闪烁问题
panel里面控件太多，一调整就会闪烁，所以一定要将可视化先关闭，我就贴我的代码。 private void EcgAlgorithmAnalysis_SizeChanged(object sender, EventArgs e) { this.panel1.Visible = false;//关闭显示 asc.controlAutoSize(this); this.panel1.Visible = true;//开启显
label文字太多导致与控件换行的问题
用bootstrap时，使用label为input元素显示文本时，如果label的文字太多的话，会导致input的元素和文字不在同一行。 先看看最开始的代码： Male 这样显示是正常的： 但当我们将label内的文字增多时会发生什么呢： radio与label的文字换行了！这并不是我们想要的结果！ 我在网上搜索了几种方法： 使用nowrap="no
Delphi

5,943

社区成员

262,941

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章