急件:如何从一个fram1到fram2复制一个chart的内容,包括里的series的数据内容 (100分)

Y

ysx_5

Unregistered / Unconfirmed
GUEST, unregistred user!
SumFrm.Chart1:=MainFrm.Chart1;
不行啊~
在线等,谢谢
 
動態創建Frame2及其它控件,設置它的父類為Frame1及對應控件!
 
procedure AssignChart(aSource, aDest: TCustomChart);
var
lSeries: TChartSeries;
i: Integer;
begin
aDest.RemoveAllSeries;
aDest.Assign(aSource);
for i := 0 to aSource.SeriesCount - 1do
begin
lSeries := TChartSeriesClass(aSource.Series.ClassType).Create(aDest);
lSeries.Assign(aSource.Series);
aDest.AddSeries(lSeries);
end;
end;
 
多人接受答案了。
 
顶部