传一个字符串给子窗体?

Question

这个字符串在,子窗体的,Create() 就要用的.
父窗口中:
 child1.ConnectString:=connectionstring;
 Child1:= TReform.Create(application);
但是子窗体的 OnCreate()中
   showMessage(connectstring) :为空.

Answer 1

你在父窗体中对Connectstring赋值了没有！

Answer 2

我调试了，没有任何问题。
1： 你将变量写在父窗体的Public中，以便其他模块引用。
2： 在子窗体的Uses中添加父窗体的单元：比如：Unit2。
3:  在父窗体的OnCreate事件中为该变量赋值。
4： 你就尽管的ShowMessage吧！－－－－－－－－－－－－父窗体－－－－－－－－－－－－－－－－－－－－
  public
    { Public declarations }
    str: string;
  end;var
  Form1: TForm1;
implementation{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  str := 'aaaa';
end;－－－－－－－－－子窗体－－－－－－－－－－－－－－－－－－－－－－－－
procedure TForm2.Button1Click(Sender: TObject);
begin
  Showmessage(Form1.str);
end;
----------------------------------------搞定！