Code: Select all
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
var ValueIndex: Integer;
begin
ValueIndex:=Chart1.Legend.Clicked(Round(X),Round(Y));
if ValueIndex=-1 then
begin
ValueIndex:=Series1.Clicked(X, Y);
end;
Caption:=IntToStr(ValueIndex);
end;Code: Select all
uses Series;
var myValueIndex: Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
Chart1.View3D:=False;
Chart1.AddSeries(TPieSeries).FillSampleValues;
end;
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
begin
myValueIndex:=Chart1.Legend.Clicked(Round(X),Round(Y));
if myValueIndex=-1 then
begin
myValueIndex:=Chart1[0].Clicked(X, Y);
end;
if myValueIndex>-1 then
Chart1.Repaint;
end;
procedure TForm1.Chart1AfterDraw(Sender: TObject);
var tmpX, tmpY, tmpW, tmpH: Single;
tmpP: Double;
tmpS: string;
begin
if myValueIndex>-1 then
begin
tmpX:=Chart1.GetCursorPos.X;
tmpY:=Chart1.GetCursorPos.Y;
tmpP:=Chart1[0].YValue[myValueIndex]*100/Chart1[0].YValues.Total;
tmpS:='ValueIndex: ' + IntToStr(myValueIndex) + sLineBreak +
'Value: ' + FormatFloat(Chart1[0].ValueFormat, Chart1[0].YValue[myValueIndex]) + sLineBreak +
'Percent: ' + FormatFloat('#0.## %', tmpP);
with Chart1.Canvas do
begin
tmpW:=TextWidth(tmpS);
tmpH:=TextHeight(tmpS);
Rectangle(RectF(tmpX, tmpY, tmpx+tmpW, tmpY+tmpH), 0);
TextOut(tmpX, tmpY, tmpS);
end;
end;
end;