Question

Delphi 7和TChart版本2014Delphi7

我有一个包含16 bar系列和16个值的3d TChart。（16x16 3d条形图）

当我将鼠标移到底部轴上时，我需要知道鼠标结束的系列的valueindex。

我想隐藏（transparency = 75）所有其他值，因此只显示该索引的条形图。（仅显示所有显示的系列的索引实际上是1x16图表）

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

Answer 1

如果系列不在（X，Y）位置（以像素为单位），则系列'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;

TChart使用mousemove在底部轴标签上找到valueindex

1 个答案: