Question

delphi 关于调用另一个form中edit的内容，急！！！

form1.edit1.text:='2008001';
比如我在form2中均添加一个edit来显示上面的内容，但是运行后form2中edit显示为空，为什么？

Answer 1

1. 点击project->add to project，选择form2的util文件

2. 在form1最上面的uses清单中加入form2的util文件名

3. 在你调用form2时候：

   
   

   procedure form1.buttonClick(Sender: TObject);
   var
    form2: form2class;
   begin
     form2:=form2class.Create(Application);
     form2.edit.text := edit1.text;
     form2.ShowModal;
     form2.Free;
   end;

实用的话顺手点个赞O(∩_∩)O~

Answer 2

首先 你要在form2中uses form1的.pas文件的名字，才能保证form2可以用form1的内容。接着在form2的一个button下写上form2.edit1.text := form1.edit1.text这个语句。

Answer 3

在form1.edit1.onchange事件中编写代码

Answer 4

implementation
uses unit1;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
Edit1.text:=Form1.Edit1.text;

end;

end.