请问:如何在各个窗体间传递变量值

Question

例如:将Form1的变量str传递给Form2

Answer 1

方法很多
你可以直接传（在Form1中调用From2时）
可以发消息
可以将str定义在公共单元中

Answer 2

你把str定义在form1的public里，在from2中uses form1
这样你就可以访问form1中的str了

Answer 3

在form1中定义一个公共全局变量（public中），在form2中引用form1,可以直接调用！yutaocool(酷鱼)说得很对阿！

Answer 4

同意 yutaocool(酷鱼)
如在Form1里定义公共变量：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    MyPublic: Intger;
  end;var
  Form1: TForm1;implementation{$R *.dfm}end.在Form2里加入Uses Unit1如下:
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementationuses Unit1;//引用Unit1;{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.MyPublic := 1;//操作Form1的MyPublic变量
end;end.

Answer 5

在form1的public中定义
在form2中Uses form1就可使用str