如何用编程实现在form组件的换行----高分--急!

mygoodday 2001-05-24 09:36:00
我想用
var hh:array[1..20] of tedit;
.....
for i:=1 to 20 do
hh[i]:=tedit.create(self);
.....
来创建一个组件;
但我不知怎么将20个edit组件分行;
将他分在多行显示;
恳请高手指点;
...全文
110 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
mygoodday 2001-05-26
  • 打赏
  • 举报
回复
谢谢各位
hlfsoft 2001-05-24
  • 打赏
  • 举报
回复
hehe,不好意思,错了:
hh[k].top:=i*(hh[1].top)+2*i;
nn[k].left:=j*(hh[1].left)+2*j
改为:
hh[k].top:=hh[1].top+i*(hh[1].height)+2*i;
nn[k].left:=hh[1].left+j*(hh[1].width)+2*j;
hlfsoft 2001-05-24
  • 打赏
  • 举报
回复
比如每组5个,共4组:
for i:=0 to 3 do
for j:=0 to 4 do
begin
k:=4*i+j+1;
hh[k]:=tedit.create(self);
if k>1 then
begin
hh[k].top:=i*(hh[1].top)+2*i;
nn[k].left:=j*(hh[1].left)+2*j
end;
end;
wanwangzhiwang 2001-05-24
  • 打赏
  • 举报
回复
一个笨办法:分别指定它们的TOP属性!让后一个TOP大于前一个Edit的高度!
for i:=1 to 20 do
begin
hh[i]:=tedit.create(self);
if i>1 then
hh[i].top:=hh[i-1].top+hh[i-1].height+2
end;

pure_cmh 2001-05-24
  • 打赏
  • 举报
回复
对应于每个edit组件,写它的left top等属性

5,388

社区成员

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

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