Steema Central

Code: Select all

void __fastcall TscrTestGraphe::Button2Click(TObject *Sender)
{
	TChart * Chart1 = new TChart(this);
	Chart1->Parent = this;
	Chart1->Align = alClient;

	TSubChartTool *SubChart1 = new TSubChartTool(NULL);
	Chart1->AddSeries(new TPointSeries(Chart1))->FillSampleValues();

	Chart1->Tools->Add(SubChart1);

	TChart * Chart2 = SubChart1->Charts->AddChart("MySubChart");
        // Chart2->Parent = _subChartTool->ParentChart;
	Chart2->AddSeries(new TPointSeries(Chart1))->FillSampleValues();

	TMarksTipTool *marksTipTool = new TMarksTipTool(Chart2);
	marksTipTool->OnGetText = OnGetMarksTipGetText;

	Chart2->Tools->Add(marksTipTool);
}

void __fastcall TscrTestGraphe::OnGetMarksTipGetText(TMarksTipTool* Sender, System::UnicodeString &Text)
{
	TChartSeries *serie = Sender->ParentChart->Series[0];
	int iValueIndex = serie->GetCursorValueIndex();  // <= Launch the exception
}

Code: Select all

Chart2->Parent = _subChartTool->ParentChart;

Code: Select all

procedure TForm1.OnGetMarksTipGetText(Sender: TMarksTipTool; var Text: string);
var serie: TChartSeries;
    iValueIndex: Integer;
    i, j: Integer;
begin
  serie := Sender.ParentChart.Series[0];
  //iValueIndex := serie.GetCursorValueIndex();  // <= Launch the exception

  for i:=0 to Chart1.Tools.Count-1 do
    if Chart1.Tools[i] is TSubChartTool then
       for j:=0 to (Chart1.Tools[i] as TSubChartTool).Charts.Count-1 do
          if (Chart1.Tools[i] as TSubChartTool).Charts[j].Chart = Sender.ParentChart then
          begin
            iValueIndex := serie.Clicked(Chart1.GetCursorPos); // <= Works fine
            //Caption:=IntToStr(iValueIndex);
            exit;
          end;
end;