Posted: Tue Dec 07, 2004 10:56 am
Hi,
the following code works fine here using the latest v7.02 :
the following code works fine here using the latest v7.02 :
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.FillSampleValues(5);
Series1.Title := 'Title';
end;
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var tmpPart: TChartClickedPart;
begin
if CheckBox1.Checked then
begin
Chart1.CalcClickedPart(Point(X,Y),tmpPart);
if (tmpPart.Part = cpSeries) then
if Assigned(tmpPart.ASeries) then
ShowMessage(tmpPart.ASeries.Title);
end;
end;