！！！！！急菜鸟问题：关于edit的问题，急！！！！！

Question

在unit2中
uses unit1
edit2.text:=form1.edit1.text;
在unit3中
uses unit2
edit3.text:=form2.edit2.text;
或者用个全局变量保存数据

Answer 1

这样，你可以利用消息处理，来完成三个Edit控件的内容传送。
将Form2作为主窗体，然后，在Form2上，加上一个消息处理过程，专门用于接收从Form1上的Edit1发来的消息，进行处理Form3上的Edit3的显示。
如：
  在Form2上:
  const  my_edit3=wm_user+100;
    {.........}
   procedure myedit3msg(var message:Tmessage);message my_edit3;
     {.........}
uses unit3,unit1;
  {.........}
procedure Tform2.myedit3msg(var message:Tmessage);
begin
  Form3.Edit3.text:=edit2.text;
end;  在Form1上的Edit1.OnExit(Sender:TObject)事件中以送消息，
  如：
  SendMessage(Form2.Handle,my_edit3,0,0);
这样会实现你所需的功能！！
有空再联系！

Answer 2

在unit1中use unit2
在unit2中use unit3
Form1.Edit1的OnChange事件：
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Form2.Edit2.Text := Edit1.Text;
end;
Form2.Edit2的OnChange事件：
procedure TForm2.Edit2Change(Sender: TObject);
begin
  Form3.Edit3.Text := Edit2.Text;
end;

Answer 3

我出现的现象是，当你把edit1中的文字该动之后（例如：改为“gggg”）在edit2中是“gggg”（edit2传到了）但edit3中的文字是“edit1”（edit2的text初始是“edit1”就是这样的，谁能帮我一下？

Answer 4

你让edit3.text:=edit2.text，edit2的初始值是“edit1”所以edit3的值当然是“edit1”了，你可以让
edit2.text:=edit1.text,
edit3.text:=edit1.text.

Answer 5

在form1的onexit事件上或是onchange事件上来进行传递就行了
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  form2.edit2.text:=edit1.text;
  form3.edit3.text:=form2.edit2.text;
end;

Answer 6

form2.edit2.text:=edit1.text;
form3.edit3.text:=form2.edit2.text;
系统如有什么提示,你就直接回答yes 
什么都搞定了

Answer 7

在Unit1中：
uses
  unit2, Unit3;
//Edit1的OnChange事件
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Form2.Edit2.Text := Edit1.Text;
  Form3.Edit3.Text := Form2.Edit2.Text;
end;

Answer 8

问题的关键在于在程序里面写Edit2.Text := 'adasfdhau'时不响应OnChange事件。所以你想要:
procedure TForm1.Edit1Change(Sender);
begin
  Form2.Edit2.Text := Form1.Edit1.Text;//不触发Edit2.OnChange事件
end;
procedure TForm2.Edit2Change(Sender);
begin
  Form3.Edit3.Text := Form2.Edit2.Text;
end;
来实现你的功能是行不通的！所以只能向楼上所说的：
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Form2.Edit2.Text := Edit1.Text;
  Form3.Edit3.Text := Form2.Edit2.Text;
end;

Answer 9

同意楼上楼的那位，应该要包含另外两个unit

Answer 10

我试了,我想知道为什么我在form2中添加代码不可以?还有就是edit2的text不是已经改了么?为什么它的text还是初始的?谢谢大家