关于对象的复制（TPen)，在线等待。请高手急救。

Question

代码如下：
var
    MyPen:TPen;
begin
    MyPen:=TPen.Create();
    Canvas.Pen.Color:=0;
    MyPen:=Canvas.Pen;
    ShowMessage(IntToStr(MyPen.Color));
    Canvas.Pen.Color:=255;
    ShowMessage(IntToStr(MyPen.Color));
end;为何我在更改了Canvas.Pen.Color的值后，MyPen.Color的值也会随着更改？我要Canvas.Pen.Color值更改后，MyPen.Color值不变，可以吗？如何做？还请高手指点。

Answer 1

试试MyPen.Assign(Canvas.Pen),不要用赋值号

Answer 2

对象的数据域之间的复制要用TPersisntent的Assign方法。