TChartSeries.onClick麻烦

Question

我正在使用teechart和delphi XE4。我认为我的问题非常基本，但我找不到解决办法。

在一个简短的例子中，我有一个带有OnCLick事件的事件处理程序的TChartSeries。 在我的事件处理代码中，我执行以下操作：

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

点击处理后设置while以停止图表以启动默认平移模式。