Delphi 单击条形图系列时如何操作TChart？

使用Delphi Seattle和iOS/Android的TChart组件，我得到了一个条形图。有没有一种简单的方法，当我点击一个条时，会在条的顶部显示一个弹出窗口/图例/标注，并显示精确的值

我遇到过ClickSeries事件，但是否有一种更简单/更合理的方法可以做到这一点，而不必每次都从该事件中重新创建调用？ 我还注意到，当我向这个系列添加代码时（为了测试，我只做了一条showmessage（inttostr（valueindex））。此外，每当触发鼠标按下事件时，就会出现一个红色边框

假设（如果可用）有一种简单的方法，既可以将此边框更改为蓝色而不是红色，也可以在单击时自动显示标注，在IDE的TChart编辑器中，这是可能的

在图表编辑器中，我尝试了进入“系列->常规->悬停”，但这里没有任何效果

更新： 这是我在仔细研究了所有内容后得出的结论。我可以按照最初的要求显示/隐藏调用，但仍然不知道如何修改显示的红色边框。当触发mousedown事件时，调用的文本现在也显示为红色

procedure TmTestForm.RawDataSeriesAfterAdd(Sender: TChartSeries;
  ValueIndex: Integer);
begin
  RawDataSeries.Marks.Item[ValueIndex].Visible:=false;
end;

procedure TmTestForm.RawDataChartClickSeries(Sender: TCustomChart;
  Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Series.Marks.Item[ValueIndex].Visible=TRUE then
    Series.Marks.Item[ValueIndex].Visible:=FALSE
  else
    Series.Marks.Item[ValueIndex].Visible:=TRUE;
end;