请问这句代码应该加到哪里？

Question

昨天在这里：http://community.csdn.net/Expert/topic/3804/3804707.xml?temp=.2128107问了个关于窗体切换的问题， unsigned(僵哥) 给了段代码，利用窗体返回信息来判断是否关闭主窗体，但是其中一句代码不知道往哪里加，请教各位了。这是代码：
//窗体Aunit
uses
   Bunit;
...if B.ShowModul=mrOk then Close;
...
=========================
//窗体BBunit
...
-----------------
//btnOkClick 确定
self.Modulresult:=mrOK;
close;
-----------------
...
-----------------
//btnCancleClick 取消
self.ModulResult:=mrCancle;
close;
-----------------
这是不知道怎么加的代码：
if B.ShowModul=mrOk then Close;
指望各位指教一下了。小弟初学。

Answer 1

procedure TFormA.btnShowClick(Sender : TObject)
var
  B : TFormB;
begin
  B := TFormB.Create(Self);
  B.Hide;
  if B.ShowModul=mrOk then Close;
end;

Answer 2

刚才那代码加到OnClick事件不行啊。

Answer 3

B窗口的“确定”按钮的ModalResult属性设为mrOK

Answer 4

回复人： qccxy(龙眠山人) ( ) 信誉：100  2005-02-27 09:22:00  得分: 0  
 
 
   放到A窗口中用来显示B窗口的那个按钮的单击事件中去。
  
 
可我试过这样会提示出错的啊。