H happymood Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-15 #1 比如子窗体的名是Form2，添加那些代码可以实现呢，还是用什么控件，谢谢！
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-15 #2 procedure TForm1.Button1Click(Sender: TObject);var form2:tform;begin form2:=tform.Create(application);//动态创建 窗体 form2.Position:=poDesktopCenter;//窗体位置 form2.Show;//窗体显示end;
procedure TForm1.Button1Click(Sender: TObject);var form2:tform;begin form2:=tform.Create(application);//动态创建 窗体 form2.Position:=poDesktopCenter;//窗体位置 form2.Show;//窗体显示end;
H happymood Unregistered / Unconfirmed GUEST, unregistred user! 2009-07-15 #3 在主窗体FORM1 implementation 加入 uses unit2 在主窗体中按钮创建子窗体： if not assigned(form2) then //判定子窗体是否存在 form2:=tform2.Create(application); form2.show;以上是我在网上搜到的，问题解决了，不过还是很感谢de410
在主窗体FORM1 implementation 加入 uses unit2 在主窗体中按钮创建子窗体： if not assigned(form2) then //判定子窗体是否存在 form2:=tform2.Create(application); form2.show;以上是我在网上搜到的，问题解决了，不过还是很感谢de410
