form之间全局变量传值问题

Question

初次使用delphi麻烦各位大神了。。

Answer 1

1. 不要交叉引用，即unit2中不要 uses unit12. 在Delphi菜单project-options中选择Forms, Auto-create forms只自动创建form13. 在unit2中设置public变量或属性，比如变量
  public
    { Public declarations }
    FStr1: String;
    FStr2: String;
  end;4. 
procedure TForm1.sButton1Click(Sender: TObject);
var
  frm: TForm2;
begin
  frm := TForm2.Create(Self);
  frm.FStr1 := '.....';
  frm.FStr2 := '-----';
  frm.web.Navigate('.....');
  frm.Show;
end;
 

Answer 2

4. 窗体创建后要释放
procedure TForm1.sButton1Click(Sender: TObject);
var
  frm: TForm2;
begin
  frm := TForm2.Create(Self);
  try
    frm.FStr1 := '.....';
    frm.FStr2 := '-----';
    frm.web.Navigate('.....');
    frm.ShowModal;
  finally
    frm.Free;
  end;
end;

Answer 3

可以自己建一个abc.pas文件，里面可以定义变量和函数，然后加入到你的项目里，谁要用的话，直接uses abc，就可以直接赋值调用了。