Steema Central

Code: Select all

type
...
private
    { Private declarations }
    function SeriesClicked(X,Y: Integer): Boolean;
...
procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var CursorUp, CursorDown: Integer;
begin
  for CursorUp:=Y downto Chart1.ChartRect.Top do
  begin
    if SeriesClicked(X, CursorUp) then
    begin
        for CursorDown:=Y to Chart1.ChartRect.Bottom do
          if SeriesClicked(X, CursorDown) then
          begin
            Chart1.Title.Text[0]:='Point in SeriesBand';
            break;
          end
          else
            Chart1.Title.Text[0]:='Point NOT in SeriesBand';

        break;
    end
    else
      Chart1.Title.Text[0]:='Point NOT in SeriesBand';
  end;
end;

function TForm1.SeriesClicked(X, Y: Integer): Boolean;
begin
  result:=((Series1.Clicked(X, Y)<>-1) or (Series2.Clicked(X, Y)<>-1));
end;