you can try doing something like this:
Code: Select all
Chart1.ExchangeSeries(Series1,Series2);
Code: Select all
Chart1.ExchangeSeries(Series1,Series2);
Code: Select all
ChartListBox1.ClearItems;
ChartListBox1.AddItem('Series3',Series3);
ChartListBox1.AddItem('Series4',Series4);
ChartListBox1.AddItem('Series5',Series5);
Code: Select all
procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Chart1.Title.Caption := 'Clicked Pie: ' + inttostr(Series1.CalcClickedPie(X,Y));
end;