窗口间的互相调用(20)

程序一共有3个窗体，form1(主窗体),form2,form3，其中form1上有个BUTTON1，作用是动态创建FORM3.代码如下：procedure TForm1.ToolButton2Click(Sender: TObject);var CLeft,CTop:integer; begin CLeft:=self.Left + Toolbutton2.Width + 8; CTop:= self.Top+Toolbutton2.top+28; with form3 do begin left:=CLeft; Top:=CTop; showmodal; end; ToolBar1.CustomHint:=nil; end;另外，(form1上面右键BUTTON1,显示FORM3,用的是form3.showmodal),而在Form2和Form3上面分别有一个BUTTON,分别代码分别为FORM2下面，Form2.hide;Form3.showmodal;FORM3下面，Form3.hide;Form2.showmodal;Form2和form3在DELPHI的project菜单中都设置为auto-create.现在的问题就是，我在FORM3上面单击后，不能进行切换，总会出现“can’t setfcus visible form”错误各位大大知道是什么原因吗？

你总算出到20分了，记得原来一直是15分的，有前途哦，我看好你。

在hide之前先判断visible？

szhcracker兄，不要嘲笑我啊。没办法。我问题多啊。再说了。我分数出的高。没人会解答，不也浪费掉。还不如慢慢来。呵呵。

汗~~, Form3 模态显示 的窗口 你也敢 隐藏~~~Form3 改成非模态显示, 即 ShowModal 改成 Show

年轻人，出手大方点行不？

是呀，模态窗口造成的。

多人接受答案了。