TChartSeries.onClick trouble

Question

我正在使用teechart和delphi XE4。我想我的问题很简单，但是我找不到解决办法。

在一个简短的例子中，我有一个TChartSeries与OnCLick事件处理程序。在我的事件处理代码中，我做了以下操作:

if Button=mbRight then
begin
  clkSerie:=Sender;
  clkValue:=ValueIndex;
  GetCursorPos(P);
  pm1.Popup(P.X,p.Y);
end;

然后，在pm1.MyAction.OnClick 中

st:=InputBox('Agregar nota','Ingrese texto','');
if st<>'' then
begin
  clkserie.Marks.Item[clkValue].Text.Clear;
  clkserie.Marks.Item[clkValue].Text.Add(st);
  clkserie.Marks.Item[clkValue].Visible:=True;
end;

它工作正常，唯一的问题是，当我离开这个过程，回到我的图表没有弹出菜单或输入框，我在"平移"状态，似乎是图表没有看到我的MOUSE_UP事件。

我试着用mouse_event()模拟鼠标点击，没有工作。唯一有效的方法是禁用对图表的平移，但我不想采用这种方式。我知道肯定有别的解决办法。

我将继续尝试并阅读这方面的资料。

Answer 1

点击处理后设置Chart1.CancelMouse := True停止图表，启动默认的平移模式