如何，在2个窗口中交换数据啊。

[FeiXue_AL]

有Form1和Form2 我从Form1中 .show 打开form2 ，如何把 form1中的edit1.text 中数据 放入form2中的edit1.text 呢？
在vb中，可以在模块中设置 全局变量，还可以在form2中使用 form1.text1.text。但在delphi中如何设置呢？使用Form1.edit1.text 无法实现。请高手赐教。谢谢。

[FeiXue_AL]

知道了，在form2的 引如unit Unit1;

[sunnysmile]

在form2的uses中加上form1就行了!

[naner_china]

楼主写错了吧
测试

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//str := edit1.Text;
form2.edit1.Text := edit1.Text;
form2.show;
end;

end.


unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin

end;

end.

[herman~~]

也可以自定义消息，在两个窗口之间发送

[FeiXue_AL]

谢谢大家了。嘿嘿。