Question

DELPHI中如何让EDIT2如何自动显示EDIT1输入的字符 比如，我在EDIT1中输入任何信息，EDIT2就显示任何信息

不好意思，可能我没有把问题描述清除，我的意思是，程序1里EDIT1的内容是123.如何让程序2里的EDIT2获取程序1里EDIT1的内容

Answer 1

Edit2.Text := Edit1.Text
这要看你在什么时候（或者说是什么事件里）实现这个功能，可以在一个按钮的单击事件里添加上述代码，可以在edit1的更改事件里添加上述代码，也可以在某个特定的程序段里添加上述代码

Answer 2

这个还真有点难度了。可以在程序1 的EDIT的onchange事件里将EDIT1的内容写到一个地方，然后程序2里面定时读程序1指定的地方。

Answer 3

在edit1控件添加响应函数OnKeyUp，在响应函数中加入 edit2.Text :=edit1.Text;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
edit2.Text:=edit1.Text;
end;

Answer 4

这有何难，在Edit1的OnChange事件中填写：
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit2.Text := Edit1.Text;
end;

Answer 5

在edit1的onchange事件里写edit2.Text:=Edit1.text;