TChartListBox.SeriesAtMousePos
TChartListBox
function SeriesAtMousePos(Var P: TPoint): Integer;
Unit
TeeLisB
Description
Returns Series index of Series at Mouse pointer.
Example
procedure TForm1.ChartListBox1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var tmp : Integer;
P : TPoint;
begin
P:=Point(x,y);
tmp:=ChartListBox1.SeriesAtMousePos(P);
if tmp<>-1 then
Caption:=Chart1[tmp].Name;
end;