请问各位高手： 用以下代码克隆DBChart控件属性为什么会出错（其它控件我试过了没问题）？好像查找不到color，data source 等属性 uses typInfo; function CloneProperty2(SourceComp, TargetComp: TObject): Boolean; var i: Integer; Properties : PPropList; begin Result := True; try for i := 0 to GetPropList(SourceComp, Properties) - 1 do begin if LowerCase(Properties[i].Name) = 'name' then continue; if not IsPublishedProp(SourceComp, Properties[I].Name) then Continue; if not IsPublishedProp(TargetComp, Properties[I].Name) then Continue; if PropType(SourceComp, Properties[I].Name) <> PropType(TargetComp, Properties[I].Name) then Continue; case PropType(SourceComp, Properties[i].Name) of tkClass: SetObjectProp(TargetComp, Properties[i], GetObjectProp(SourceComp, Properties[i])); tkMethod: SetMethodProp(TargetComp, Properties[I], GetMethodProp(SourceComp, Properties[I])); else SetPropValue(TargetComp, Properties[i].Name, GetPropValue(SourceComp, Properties[i].Name)); end; end; except Result := False; end; end;