关于EDIT的控制问题?详细情况请看里面~~

klaiy 2003-08-24 03:13:05
我想实现像VB中的对控件进行索引控制,比如在VB中
for i=0 to 12
text1(i).text='1111111'
next i
这样就对所有的text都赋值了,那么在Delphi中我怎么来实现这种功能,我想控制Edit和Label控件,应该怎么来实现,设置它的tag值吗?
...全文
26 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
klaiy 2003-08-24
  • 打赏
  • 举报
回复
谢谢
结帖子了
huojiehai 2003-08-24
  • 打赏
  • 举报
回复
var
lp: integer;
begin
for lp := 0 to controlcount - 1 do
if controls[lp] is tedit then
tedit(controls[lp]).text := '';
end;
沾上了甩不掉 2003-08-24
  • 打赏
  • 举报
回复
对,设置不同的tag值后遍历一次控件,如果是tedit类,并且tag = i
那么就可以进行不同的操作

5,388

社区成员

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

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