我在FORM1中 通过BUTTON1的 ONCLICK 事件创建了一个NAME 为 EDI 的edit ,用findcomponent 想向EDI 里写些东西,但是当我单击BUTTON2的时候,没有任何反应,而同样我手动往FORM1中放了个EDIT 控件,就能改变里面的TEXT,这是为什么?我应该怎样实现我想要的效果?还有如果我想从EDI(动态创建的控件)中取走他的里面的TEXT,用什么可以办到?请各位帮帮我啊!谢谢你们了先!以下是我的源码
procedure createedit;
var
edi:Tedit;
begin
edi:=Tedit.Create(application);
edi.Parent:=form1;
edi.Name:='edi';
edi.Text:='edi';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
createedit;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
(form1.FindComponent('edit') as Tedit).Text:='123' ;
(form1.FindComponent('edit1') as Tedit).Text:='131464';end;
procedure createedit;
var
edi:Tedit;
begin
edi:=Tedit.Create(application);
edi.Parent:=form1;
edi.Name:='edi';
edi.Text:='edi';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
createedit;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
(form1.FindComponent('edit') as Tedit).Text:='123' ;
(form1.FindComponent('edit1') as Tedit).Text:='131464';end;
解决方案 »
- <<Delphi 6开发人员指南>>,广州哪个书店有卖这本书?
- D8中New->VCL Forms Application和 Windows Forms Application有啥区别?
- com+访问问题
- 菜鸟求助(问题简单) 望高手们别见笑
- 高手进来说说怎么公用的变量和自定义函数放在程序中什么位置比较好!?如果用一个单独的文件呢又存行不行?程序中的其它模块怎样调用他们
- 怎么处理多个结果集
- 怎样使dbgrid的长度随着数据的大小而自动变化
- Borland Remote debugger 是用谁的环境调试谁的程序的?
- 广州惠柏大家可的注意
- 哪有能显示时间的标签控件,50分大奖
- interbase数据库复制表结构
- 找工作(福州)
你的动态控件名称是 edi,在button2的事件 fincomponent 没看到查找此控件.
不管用
但是那个edit1里的text 就能改变!
晕啊!