【搞定】关闭窗体的问题

pure1437

我用FormDoc来设计界面，然后通过docview将FormDoc引用到一个窗体上，FormDoc上面有一个按钮用来关闭窗体，请问代码应该如何写？

jiahaiminghr

为什么要用formdoc中的button来关闭窗体？

yancm

Self.InfoBroker.FuncBroker.Func.MainForm.Close;

pure1437

按照3楼的方法，会出现如图的错误提示，无法编译运行。

pure1437

我用FormDoc设计的界面，控件包括按钮都在FormDoc上，窗体上只有一个docview控件。贾工的意思是在docview控件上面的相同位置放一个按钮来执行关闭窗口操作吗？

jiahaiminghr

1、可以在功能窗体单元中声明一个方法，格式和button的click一致。这个方法用来关闭窗口：close;
procedure butclick(Sender: Object);
begin
  close;
end;

2、在主窗体的create事件，为sheetdoc的button的Onclikc事件赋值
TSheetDoc(Docview.Doc).Button1.OnClick := butclick;

pure1437

提示
[警告] 循环引用: "Biz:\HHZYLBXXXXT\JJZJ\JFJSZSFUNC.FUNC"-->"Biz:\HHZYLBXXXXT\JJZJ\JFJSZSINFO.Info"-->"Biz:\HHZYLBXXXXT\JJZJ\JFJSZSINFO.Info"
[错误]Biz:\HHZYLBXXXXT\JJZJ\JFJSZSFUNC.FUNC.DIR\JFJSZSWIN.Form.pas(32, 46): Undeclared identifier "SpeedButton3"
[错误]Biz:\HHZYLBXXXXT\JJZJ\JFJSZSFUNC.FUNC.DIR\JFJSZSWIN.Form.pas(14, 15): 'TJFJSZSWIN.butclick' 过程声明了,但没有实现

yancm

在button里面写
Self.InfoBroker.FuncBroker.Func.MainForm.Close;

在功能的主窗体的OnCreate里面为信息里面的FuncBroker赋值：
XXXInfo.TFormDocXXX(DocViewXXX.Doc).Infobroker.FuncBroker:=FuncBroker;

pure1437

按8楼的方法提示
"Biz:\HHZYLBXXXXT\JJZJ\JFJSZSINFO.Info"循环引用

alang

在文档上放一个FuncBroker，设置属性Default，然后执行 FuncBroker.Terminate