控件太多的问题-CSDN论坛

⋅控件太多的问题 ⋅快速更换图片 ⋅ubuntu apt-get source 下载的源代码怎么调试执行？ 更多帖子 关注私信空间博客 XXKKFF 本版专家分：0 结帖率 99.25%: 动态添加的控件太多, 显示不完,
我想把控件的parent设成一个scrollbox, 控件显示不完的时候自动出现滚动条, 要怎么设置?

0 2011-12-25 18:44:46

回复数 18 只看楼主引用举报楼主

⋅我是来结帖的 ⋅好久不搞delphi，再搞一次还是顺手 ⋅很久未来，散个分吧、顺祝大家端午节快乐 更多帖子 关注私信空间博客 whisht 本版专家分：2740: 创建控件时parent设置为scrollbox控件

0 2011-12-25 19:06:43

只看TA 引用举报 #1 得分 0

都先生 本版专家分：1921: 同意楼上的哦

0 2011-12-25 19:22:01

只看TA 引用举报 #2 得分 0

sxbug 本版专家分：452: 布局一下

控制好大小及位置

0 2011-12-26 09:45:44

只看TA 引用举报 #3 得分 0

⋅vector使用出了个问题，谁给解释下？ ⋅C++多线程 CPU利用率100%，怎么解决？ ⋅呼叫支援~~线程执行正常，但在结束时卡死 更多帖子 关注私信空间博客 hongss 本版专家分：11115: 动态创建其实跟你直接放置差不多，都要考虑位置、大小

0 2011-12-26 10:06:59

只看TA 引用举报 #4 得分 0

⋅delphi固化配置成文件的方法 ⋅怎么把word里的项目编号转换成普通的字符？ ⋅delphi读取word，并建立目录，求高手帮忙。 更多帖子 关注私信空间博客 mayyang 本版专家分：0: 拿label来说：
lbl := tlabel.create(scrollbox1);
lbl.parent := scrollbox1;
//设置lbl控件在scrollbox1中的位置，left和top都是相对srollbox1的边界
lbl.left := 0;
lbl.top := 0;

0 2011-12-26 10:31:21

只看TA 引用举报 #5 得分 0

⋅delphi固化配置成文件的方法 ⋅怎么把word里的项目编号转换成普通的字符？ ⋅delphi读取word，并建立目录，求高手帮忙。 更多帖子 关注私信空间博客 mayyang 本版专家分：0: 把scrollbox的autoscroll属性设置成true，scrollbox就可以自动出现滚动条了。

0 2011-12-26 10:33:06

只看TA 引用举报 #6 得分 0

kevin_wzh 本版专家分：658: 按照楼上的办

0 2011-12-26 11:00:36

只看TA 引用举报 #7 得分 0

⋅控件太多的问题 ⋅快速更换图片 ⋅ubuntu apt-get source 下载的源代码怎么调试执行？ 更多帖子 关注私信空间博客 XXKKFF 本版专家分：0: 引用 5 楼 mayyang 的回复:
拿label来说：
lbl := tlabel.create(scrollbox1);
lbl.parent := scrollbox1;
//设置lbl控件在scrollbox1中的位置，left和top都是相对srollbox1的边界
lbl.left := 0;
lbl.top := 0;

还是不行啊
我要放的控件是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];

0 2011-12-26 19:24:38

只看TA 引用举报 #8    得分 0

⋅控件太多的问题 ⋅快速更换图片 ⋅ubuntu apt-get source 下载的源代码怎么调试执行？ 更多帖子 关注私信空间博客 XXKKFF 本版专家分：0: 引用 8 楼 xxkkff 的回复:
引用 5 楼 mayyang 的回复:

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

还是不行啊
我要放的控件是TIm……

把
  imgCandidates[ind].Stretch := true;
  imgCandidates[ind].Anchors := [akLeft] + [akTop] + [akRight] + [akBottom];
两行去掉就可以了, 为什么呢?

0 2011-12-26 19:28:24

只看TA 引用举报 #9    得分 0

⋅水晶报表参数传值到报表中老是报”加载报表失败” ⋅ADOstoredproc异步执行都完了，为什么OnFetchComplete事件还没有触发? ⋅delphi 写的DLL 结构指针传递问题 更多帖子 关注私信空间博客 sunli_py 本版专家分：53: 引用 6 楼 mayyang 的回复:
把scrollbox的autoscroll属性设置成true，scrollbox就可以自动出现滚动条了。

就这个

0 2011-12-27 19:47:30

只看TA 引用举报 #10 得分 0

⋅VS2015 添加引用服务时报错 ⋅VS2015 添加引用服务报错 ⋅求正则表达式 更多帖子 关注私信空间博客 formernetcn 本版专家分：64: 把scrollbox的autoscroll属性设置成true，scrollbox就可以自动出现滚动条了。

0 2011-12-27 19:52:44

只看TA 引用举报 #11 得分 0

⋅MSSQL 构建读写分离数据库 ⋅关于Ajax的Static方法的问题 ⋅关于WebService 在网络不稳定的情况下使用方法讨论 更多帖子 关注私信空间博客 anpule 本版专家分：2200: 把scrollbox的autoscroll属性设置成true，scrollbox就可以自动出现滚动条了。

0 2011-12-27 20:27:02

只看TA 引用举报 #12 得分 0

⋅delphi固化配置成文件的方法 ⋅怎么把word里的项目编号转换成普通的字符？ ⋅delphi读取word，并建立目录，求高手帮忙。 更多帖子 关注私信空间博客 mayyang 本版专家分：0: 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;

0 2011-12-28 09:25:18

只看TA 引用举报 #13    得分 0

⋅delphi固化配置成文件的方法 ⋅怎么把word里的项目编号转换成普通的字符？ ⋅delphi读取word，并建立目录，求高手帮忙。 更多帖子 关注私信空间博客 mayyang 本版专家分：0: 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;

0 2011-12-28 09:27:01

只看TA 引用举报 #14    得分 0

⋅C++Builder免费了? ⋅把查询的名次直接修改到字段里面 ⋅C++Builder 中的前置声明 更多帖子 关注私信空间博客 爱蹄子的羊头 本版专家分：4689 蓝花 2011年10月 Delphi大版内专家分月排行榜第三

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

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

还不如这样

imgCandidates[ind].align := alClient;

0 2011-12-28 09:30:53

只看TA 引用举报 #15 得分 0

⋅delphi固化配置成文件的方法 ⋅怎么把word里的项目编号转换成普通的字符？ ⋅delphi读取word，并建立目录，求高手帮忙。 更多帖子 关注私信空间博客 mayyang 本版专家分：0: 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;

0 2011-12-28 09:35:07

只看TA 引用举报 #16    得分 0

mayyang 本版专家分：0: 不好意思，网络不好，多发了

0 2011-12-30 13:22:21

只看TA 引用举报 #17 得分 0

⋅高分求由C＋＋函数转化成DELPHI函数的写法！！！ ⋅散100！有谁能帮我写成C？ ⋅散！散！散！谁能帮我写成C？ 更多帖子 关注私信空间博客 虾猫先生 本版专家分：184: 这个行

引用 15 楼 warrially 的回复:
imgCandidates[ind].Anchors := [akLeft] + [akTop] + [akRight] + [akBottom];

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

还不如这样

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

0 2011-12-30 13:36:46

只看TA 引用举报 #18 得分 0

控件太多的问题 [问题点数：40分]