关于窗体继承？

能否在程序中动态新建一个窗体，新建窗体继承了已有的某个窗体的所有功能。
有个小例子最好，本人初学！谢谢！

解决方案 »

  1.   

    试验：
    var
    form2：tform；
    begin
    if not assigned(form2) then
    form2:=tform1.create(self);
    form2.show
    能出来窗体，但是不知道这个方法有没有什么错误的地方？  
      

  2.   

    虽然出来了，但我看你这个不是从TForm1继承的呀，应该在上面写
    TForm2 = class(TForm1),然后再建相应的实例呀
      

  3.   

    可以啊，Tform2 = class(TForm1),这样Tform2的实例就继承了form1的所有功能了，出了private里定义东东！然后再创建Tform2的实例：form2 := Tform2.create(nil);
      

  4.   

    这样可以，然后你再在form2的窗体中加一下代码事件等，就可以啦！
      

  5.   

    刚回答了 参考http://expert.csdn.net/Expert/topic/3059/3059067.xml?temp=.7008783
      

  6.   

    由于form2是动态生成的，怎么访问它上面的控件啊？
      

  7.   

    好像TFrame可以满足你的想法。
      

  8.   

    form2是继承了form1所有的东西，但是怎样为form2增加新的功能啊？