简单的窗体问题(送分了)
我建立了个FORM1 然后 我又建立了个窗体 我想 启动的时候FORM1显示 按了下button后 窗体2再显示
[解决办法]
如果Form2是自动创建的,楼主可以使用楼上兄台说的方法。如果不是自动创建的,则使用下面方法。
首选定义全局变量,用于保存创建后的Form2实体
var
frm: TForm2 = Nil;
然后在Button1的Click事件中加入如下代码:
if (frm = Nil) then
frm := TForm2.Create(Application);
frm.Show;
最后不要忘记在Form1关闭的时候(Close事件中)释放掉Form2
if not(frm = Nil) then
frm.Free;
[解决办法]
做好form2后,从Project菜单中选择options, 在project options对话框中选择forms
从Auto-Create forms中把form2移到Available forms中,点确定退出
然后再在form1单元的上面uses句后面把form2所在单元unit2写上
最后一步是在form1的onclick事件中写入以下代码即可
form2:=TForm2.create(self);
form2.show;
即可,怎么样,够详细吧,给分吧