在非子窗体设置子窗体变量的值的问题

Question

一个应用程序中有三窗体,form1是父窗体,form2是子窗体,form3非子窗体(普通窗体)
在form1中创建子窗体
procedure TForm1.Button1Click(Sender: TObject);
var Child: Tform2;
begin
   child:=tform2.Create(application);
   child.Show ;
end;我在form2中定义了一个变量,
public 
   test:integer;.......然后我在form3中改变form2.test的值时会出错,
procedure TForm3.Button1Click(Sender: TObject);
var    t: Tform2;
begin
 t:=TForm2(ActiveMDIChild);
 t.test:=10;
end;
请问这种情况何解?

Answer 1

判断一下,
if Assigned(t) then
  t.test := 10;