导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2004/7/4 14:21:34
标题:
怎样,访问动态创建的组件?请多指教谢谢
浏览:1172
加入我的收藏
楼主:
procedure TForm1.Button1Click(Sender: TObject); vaR bt1:tbutton; i:integer; begin for i:=1 to 4 do begin bt1:=tbutton.create(self); bt1.Parent:=self; bt1.Caption:=inttostr(i) ; bt1.Left:=i*100; end //end; 创建了四个按纽,创建之后如果再想控制相应按纽该如何处理呢? 另外我知道可以用TLIST建立一个列表的方法访问已经建立的组件,但我想知道的是能不能使用组件的name 字段来访问,谢谢
----------------------------------------------
www.qianpai.com
作者:
2004/7/4 15:56:37
2楼:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; bt1:tbutton; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=1 to 3 do begin bt1:=tbutton.create(self); bt1.parent:=self; bt1.name:='bts'+inttostr(i); end end; procedure TForm1.Button2Click(Sender: TObject); var bt2:pointer; begin bt2:=findcomponent('bts2') ; tbutton(bt2).left:=50; end; end. 多谢大家帮忙,我刚刚知道了用上述方法可以实现,供大家探讨,如有更简便的方法请发表
----------------------------------------------
www.qianpai.com