复制两个VCL元件有没有直接的办法？

[BCB]

................
label2.AutoSize:=label1.AutoSize;
label2.Parent:=label1.Parent;
label2.Left:=label1.Left;
label2.Top:=label1.Top;
label2.Font:=label1.Font;
label2.Transparent:=label1.Transparent;
label2.Height:=label1.Height;
.............
这有多烦呀!

[BCB]

Assign()你们二位自己试了没有，
我试了，不成功，可能是没派生

[BCB]

555555555555555555555555555555

[ether]

不是用一个assign就可以全部搞定的，例如：
label2.assign(label1)是不行的，但：
Label2.Font.Assign(Label1.Font);
可以。
理论上assign也不可能完成所有过程。例如，你写的类TMyTest，包含有一属性MemPtr，
是一个指针，指向你申请的一块内存，如果你自己写Assign方法，你怎么处理这个问题
呢？也是无法处理吧？把指针直接附值，一旦在新的类中进行写操作，会影响copy源的；
如果新申请一块内存，大小如何确定呢？...

[BCB]

to ether:
有你这个高手指点，我茅塞顿开，就是说错怪了VCL，
我自已的对象也不能一次简单的赋值搞定；
知道不能，我也就死心了，就算结束了，给分了！

[babysloth]

同感啊，看看吧。

[bill_lasker]

不知有没有clone这个方法？

[sundayboys]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TLabel *Label2=new TLabel(this);
Label2=Label1;
Label2->Caption="Label2";
}

[BCB]

老兄，你把Label2刚申请的对象变成了垃圾对象了，
赋值后Label2只是简单地指向了Label1的对象而已；

[BCB]

VCL怎么竞然没有复制对象功能？
如果是我自已设计的类，可以这样：
*Label2 = *Label1,
可是，在VCL中这样做，马上就告诉你
是非法的，

[BCB]

5555555555555555555555555555555555555555

[ether]

怎么不用assign方法呢？？

[zh_sh]

对，就是用Assign方法

[项目花园范德彪]

关注

[jungg]

关注

[gxgxfish0813]

在设计期间右击button1,选copy 然后贴一下不就行了吗？？