guang2356447 发表于 2007-10-12 16:55

关于多窗体设计问题？

<P>我现在在做一个程序   多个窗体<BR><BR>我现在设置的是FROM2为主窗体   在运行的时候先运行FORM1窗体  然后验证通过后进入FROM2主窗体隐藏FROM1窗体 <BR><BR>问题<BR>1、现在关闭FORM2S时候 FROM1没关闭   使用FROM1.CLOSE关闭不好使 <BR>2、关闭FROM1时候  程序也是没关闭完 <BR><BR>我该设置FORM1窗体为主那    还是设置FROM2为主窗体<BR><BR>我在运行时候 先创建<BR>begin<BR>  Application.Initialize;<BR>  Application.CreateForm(Tzct, zct);//ZCT主窗体<BR>  Application.Run;<BR>end.<BR><BR>在主窗体开始时候创建登陆窗体<BR>procedure Tzct.FormCreate(Sender: TObject);<BR>begin<BR>zct.Visible:=false;<BR>dl:=Tdl.Create(application);<BR>dl.Visible:=false;<BR>dl.ShowModal;<BR>end;<BR>主窗体关闭事件过程代码<BR>procedure Tzct.FormClose(Sender: TObject; var Action: TCloseAction);<BR>begin<BR>dl.Close;<BR>action:=cafree;<BR>end;<BR>登陆窗体关闭过程代码<BR>procedure Tdl.FormClose(Sender: TObject; var Action: TCloseAction);<BR>begin<BR>dl.Close;<BR>zct.Close;<BR>end;<BR></P>

sky_yang_sky 发表于 2007-10-12 17:23

要哪個做主窗体取決於你自己，關於關閉的問題你用application.terminate試試，因為application為全局變量。

guang2356447 发表于 2007-10-12 19:04

<P>恩可以拉<BR>感谢sky_yang_sky<BR><BR>又是你啊[em24]<BR>能加我QQ吗<BR>312665314<BR><BR>以后好向你请教问题嘿嘿[em25]</P>

provoke 发表于 2007-10-12 19:27

以Form2为主窗体，运行FORM1窗体验证通过后进入FROM2主窗体时，关闭Form1窗体，而不要只是隐藏FROM1窗体
[align=right][color=#000066][此贴子已经被作者于2007-10-12 19:29:08编辑过][/color][/align]

volte 发表于 2007-10-12 20:41

<P>为什么不用showmodal窗体呢，这个效果比较的好<BR>不过具体问题具体对待，有时候孩子窗体还是必须的。</P>

sky_yang_sky 发表于 2007-10-13 09:21

<DIV class=quote><B>以下是引用<U>guang2356447</U>在2007-10-12 19:04:09的发言：</B><BR>
<P>恩可以拉<BR>感谢sky_yang_sky<BR><BR>又是你啊[em24]<BR>能加我QQ吗<BR>312665314<BR><BR>以后好向你请教问题嘿嘿[em25]</P></DIV>
<P>多謝你的西瓜，那個真的是我的最愛︿ˍ︿，</P>

页: [1]

编程论坛