如果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实体
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的单元use进去
现在我又做了个FORM2窗体,是想在FORM1中BUTTON里 按了把他显示出来(FORM2是我已经做好的窗体)
从Auto-Create forms中把form2移到Available forms中,点确定退出
然后再在form1单元的上面uses句后面把form2所在单元unit2写上
最后一步是在form1的onclick事件中写入以下代码即可
form2:=TForm2.create(self);
form2.show;
即可,怎么样,够详细吧,给分吧
form1的button1的onclick事件form2.show;