如何快速在一个Project中复制一个已经存在的From？

在Project已经有一个FormA，FormA上已经有相应的控件和代码；
要求复杂一个和FormA一样的FormB，除了Form名称不一样其他都一样

解决方案 »

  1.   

    1.
      把.dfm  .pas 文件复制一下改个名
      在工程中添加
    2.
    var
       form2:Tform1;
    begin
       form2:=Tform1.create(nil);
       form2.Show ;
    end;
      

  2.   

    File-->New-->Others
    选择你的工程，如Project1那一页，选中FormA,再点击“OK”。
      

  3.   

    这样做了以后，你以后在FormA中对代码或控件进行了修改，会在FormB中体现，但在FormB中不得删除从FormA中继承过来的控件.....
      

  4.   

    我只是在设计阶段需要复杂一个现有的FormA一样的FormB，不是要继承FormA
    另外，请问fishmans(金脚指) 你说的“ 把.dfm  .pas 文件复制一下改个名
      在工程中添加”，那个.dcu文件需要吗？
      

  5.   

    用楼上的继承，或者用save as FormB
      

  6.   

    打开FormA,将名称改为FormB,同时另存为Unit_FormB,此时关闭工程不保存;然后再打开工程,将FormB添加进去即可.
      

  7.   

    Save AS...
    Add To Project...
      

  8.   

    为何用继承，不是有copy选相吗？
      

  9.   

    还有一种方法：在一个窗体上点右键 viewastext，copy 一下。在把新建的改掉 就ok
      

  10.   

    支持继承！var
      NewForm: TFormA；
      

  11.   

    用save as 生成 FormB
    用ctrl+r 将FromA都替换成FormB
     
    然后再Add FormA倒工程