Delphi TChartSeries.onClick故障

我正在使用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;

st:=输入框（'Agregar nota'、'Ingree texto'、''；
如果是，那么
开始
clkserie.Marks.Item[clkValue].Text.Clear；
clkserie.Marks.Item[clkValue].Text.Add（st）；
clkserie.Marks.Item[clkValue].Visible:=True；
终止

它工作正常，唯一的问题是，当我退出这个过程，回到没有弹出菜单或输入框的图表中，我处于“平移”状态，似乎图表没有看到我的鼠标向上事件

我试图用

mouse\u event（）

模拟鼠标点击，但没有成功。 唯一有效的方法是禁用图表的平移，但我不想这样做。我知道必须有其他的解决办法

我会继续尝试和阅读

---

提前感谢。

设置

Chart1.CancelMouse:=True

单击处理后停止图表以启动默认平移模式。

设置

Chart1.CancelMouse:=True

单击处理后停止图表以启动默认平移模式。

弹出菜单或模式

输入框

鼠标向上移动消息。不要直接从您的

OnClick

事件处理程序显示弹出窗口，而只尝试将自定义消息发布到表单并在其消息处理程序中进行处理（即，在处理鼠标向上移动后延迟）。我尝试了以下

if Button=mbRight然后开始clkSerie:=Sender；CLK值：=值索引；GetCursorPos（P）；PostMessage（Self.Handle，WM_SERIE_CLICK，0,0）；结束和，在消息处理程序中
SleepEx（200，false）；pm1.弹出窗口（P.X，P.Y）具有相同的结果。弹出菜单或模式
InputBox
eat the mouse up消息。不要直接从您的
OnClick
事件处理程序显示弹出窗口，而只尝试将自定义消息发布到表单并在其消息处理程序中进行处理（即，在处理鼠标向上移动后延迟）。我尝试了以下
if Button=mbRight然后开始clkSerie:=Sender；CLK值：=值索引；GetCursorPos（P）；PostMessage（Self.Handle，WM_SERIE_CLICK，0,0）；结束和，在消息处理程序中
SleepEx（200，false）；pm1.弹出窗口（P.X，P.Y）的结果相同。如果答案解决了开头问题，你应该接受答案。如果答案解决了开头问题，你应该接受答案。