如何创建复制一个窗体？？

Question

创建一个新窗体，怎么弄和已存在的窗体一样的属性？？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  frm : Tform;
begin
  frm := TForm1.Create(Form1);
  frm.Show;
end;

Answer 2

dfm文件就是用来保存窗体属性的

Answer 3

将原窗体设为模版就可以了。
然后你New的时候选择Other就有。

Answer 4

如果是静态创建的话可以通过继承的方式就是上面所说的new -->other-->选择工程名的那一页......如果是动态创建的话只需要创建相同类的一个实例就可以了

Answer 5

昏，提问的人提得不清不楚，答的人答得五花八门。建议，此类不清楚的问题先请ＬＺ写明意图。你所谓的一样的，是不是指的类似Java或者C#中的Clone？还是设计期的一种新建Form的技巧？如果是后者，楼上的都答得差不多了，至于前者，也超级容易，提示一下：利用Stream，代码最多几行。