引用其他窗体控件内容问题

Question

A窗体(FORM1):一个Stringgrid,一个button,STRINGGRID假设有100ROW\COL,且全部有内容
procedure buttonclick(sender:tobject);
var f:tform2;
begin
  f:=tform2.create(nil);
  f.showmodal;
end;B窗体(FORM2):使用A窗体中stringgrid的单元格内容,showmessage(form1.stringgrid1.cells[1,1]);这样使用提示错误,我是新手,不知是何原因,请各位老师赐教,先谢谢了.注:A,B窗体的单元都已经引用了,而且能正常编译,就是取控件值出错,提示大意是不能读取内存.如果是启动时自动创建窗口就没有错误.

Answer 1

在form2单元定义个公有变量frm: Tform1;
procedure buttonclick(sender:tobject);
var f:tform2;
begin
  f:=tform2.create(nil);
  f.frm := self; //加上这句吧
  f.showmodal;
end;