TChart用鼠标在底部轴标签上移动来查找valueindex

Question

Delphi 7和TChart版本2014Delphi7

我有一个三维TChart，有16个条形系列和16个值。（16x16三维条形图）

当我把鼠标移到下轴上时，我需要知道鼠标所在序列的值索引。

我想隐藏（透明度=75）所有其他值，以便只显示该索引的条形图。（只显示这样显示的所有系列的索引实际上是1x16图表）

如何获取鼠标结束时的索引？

Answer 1

如果序列不在（X，Y）位置（以像素为单位），则Series的Clicked（X，Y）函数返回-1。如果序列位于（X，Y）位置（以像素为单位）下，则返回序列下的点的索引。

这里有一个使用OnMouseMove事件的简单示例：

uses Series;
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.View3D:=false;
  for i:=0 to 2 do
    Chart1.AddSeries(TBarSeries).FillSampleValues(3);
end;
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var seriesIndex, valueIndex: Integer;
begin
  Caption:='No series under the mouse';
  for seriesIndex:=Chart1.SeriesCount-1 downto 0 do
  begin
    valueIndex:=Chart1[seriesIndex].Clicked(X,Y);
    if valueIndex>-1 then
      Caption:='Series under the mouse. SeriesIndex: ' + IntToStr(seriesIndex) + ', ValueIndex: ' + IntToStr(valueIndex);
  end;
end;