小编Mat*_*rro的帖子

我正在使用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()但没有奏效.唯一有效的是禁用图表平移,但我不想采取这种方式.我知道除此之外必须有一个解决方案.

我将继续尝试并阅读相关内容.

提前致谢.