动态创建控件问题？？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
    t : Tedit;
begin
t :=Tedit.create(self);
  with t do begin
    parent := self;
    width := 100;
    height := 20;
    name := 'text123';
captiom:='aaa';
    top := 100;
    left := 50;
    show;  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
在这里符值。
end;
单击button1,创建控件。单击button2,怎样把创建的控件text123内容，符给edit2.text？

Answer 1

将t设置位全局变量，然后在Button2Click(Sender: TObject)里直接用edit2.text:=t.text;(注意调用Button2Click之前你必须先创建了t，也就是你必须先按下button1。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
    t : Tedit;
begin
t :=Tedit.create(self);
  with t do begin
    parent := self;
    width := 100;
    height := 20;
    name := 'text123';
captiom:='aaa';
    top := 100;
    left := 50;
    show;  end;
end;在該過程中，t : Tedit只是一個局部變量存在，而其它地方是訪問不了t的要解決這一問題，可以設置t為全局變量，或者用另一個tedit對象把其值引出來

Answer 3

有，使用查询函数，找到‘TEXT123’，在付值

Answer 4

同意duanhai，将T设为全局变量，然后对其进行控制！

Answer 5

也可以不用。
IF (FindComponent('Text123')<>nil) And (FindComponent('Text123') Is TEdit) Then
  Edit2.Text:=(FindComponent('Text123') As TEdit).Text;

Answer 6

也可以不用。
IF (FindComponent('Text123')<>nil) And (FindComponent('Text123') Is TEdit) Then
  Edit2.Text:=(FindComponent('Text123') As TEdit).Text;

Answer 7

也可以不用。
IF (FindComponent('Text123')<>nil) And (FindComponent('Text123') Is TEdit) Then
  Edit2.Text:=(FindComponent('Text123') As TEdit).Text;