为什么在FORM2里取FORM1的EDIT1.TEXT,字符不变呢?

Question

在FORM1里,有EDIT1,我想在FORM2里取FORM1的EDIT1.TEXT,但是每次取只有第一次是正确的,当我改变FORM1的EDIT1.TEXT的值,在取的时候还是第一次的输入的值,请问为什么,用什么语句才能让FORM2里取的EDIT1.TEXT和FORM1的EDIT1.TEXT同步,谢谢.还有,如果我想把FORM1的EDIT1.TEXT,付值给A,想在每个窗体都能调用A这个变量,怎么声明?

Answer 1

将A定义在Public中  A:String
以后使用  Form1.A 付值给要使用的地方就可以了。

Answer 2

在Form1的public区：
a: string;

Answer 3

procedure TForm1.Edit1Change(Sender: TObject);
begin
form2.Edit1.Text:=(sender As TEdit).Text;
end;

Answer 4

设一个公用的unit单元upublic（没有form），在upublic中定义一个变量a ,在form1中a:=edit1.text,任何一个单元都可以随时读取它。