Steema Central

Code: Select all

uses Series;

procedure TForm1.FormCreate(Sender: TObject);
begin
//  Chart1.View3D:=false;

  with Chart1.AddSeries(TAreaSeries) as TAreaSeries do
  begin
    FillSampleValues();
    OnClick:=Series1Click;
  end;
end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Chart1.Title.Text.Text:='ValueIndex under the mouse: ' + IntToStr(Chart1[0].Clicked(X,Y));  //Clicked function is actually called in series OnClick event
end;

procedure TForm1.Series1Click(Sender: TChartSeries; ValueIndex: Integer;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Caption:='ValueIndex Clicked: ' + IntToStr(ValueIndex);
end;