各位大哥，如何实现在运行期间在form上复制控件的功能阿，分不够再加，必给阿！

Question

我写了一个用户表单定制的程序，实现的动态控件的创建，移动，删除，保存等功能
可是如何实现控件的复制呢？比如说用户在form上动态创建了一个label或者button，当复制这些控件时，新的组件要求和原先的的属性相同。不知如何实现，另外，我这些用来动态创建组件的类已经全部继承重写了，例如
type
Cbutton＝class（Tbutton）
......
这样好方便我控制初始化的状态在控件里。
                                    感谢阿！

Answer 1

我想是不是需要重载TButton的 Assgin 方法。

Answer 2

不行 阿，提示 不能将Cbutton assign to cbutton

Answer 3

挺困难的, 要么直接new一个,然后将原来的所有属性赋值给新的,然后更改parent等属性.
TAdoDataSet之类的控件可以做到赋值, 但Delphi基本没有象Java一样提供Clone.

Answer 4

对于 Button 或者  Form这些类，你硬重载 assign这个方法，写上你自己的复制过程，不能直接用，他是个虚函数。