帮帮我 动态创建的控件怎么取值时时空的

dxhdxh 2004-03-07 04:39:30
代码如下
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin

for i=1 to 3
begin
with Tedit.Create(self) do
begin
name:='et'+inttostr(i);
parent:=self;
width:=160;
text:='uuuu';
Left :=width+100;
Top :=width+100;
//Visible:=false;
end;
end

end;
procedure TForm1.Button1Click(Sender: TObject);

begin
showmessage(findComponent('ed'+'1')as TEdit).text) ;
end;
在输入值后显示为什么是空的

...全文
59 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复

5,379

社区成员

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

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