『请教』如何实现在TChart显示鼠标所在点的X,Y轴的数据,移动鼠标,数据也跟着更新(50分)

  • 主题发起人 主题发起人 netfeng88
  • 开始时间 开始时间
N

netfeng88

Unregistered / Unconfirmed
GUEST, unregistred user!
我是做一个数据库的软件,其中要用到TChart控件显示数据,现要实现这样的要求:
在TChart控件显示的区域里,鼠标所在点,会显示X,Y轴的数据(时间和速度),且移动鼠标,数据也更新。
有那位高手有好的实现方法,或有这样的控件下载,请指教,谢谢!
 
在chart 的OnMouseMove事件中写如下代码:
procedure TF_test.Chart4MouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
Var
buf_x,buf_y:Double;
begin
chart4.Series[0].GetCursorValues(buf_x,buf_y);
If (Round(buf_y*1000)>0)And(Round(buf_y*1000)<=Round(
Chart4.LeftAxis.Maximum*1000))And(Round(buf_x*1000)>
0)And(Round(buf_x*1000)<=Round(Chart4.BottomAxis.Maximum*1000)) then
begin
StatusBar2.Panels[0].Text:='Y轴:'+ Format('%1.3f',[buf_y])+' MPa ';
StatusBar2.Panels[1].Text:='X轴:'+ Format('%1.3f',[buf_x])+' S ';
End
else
begin
StatusBar2.Panels[0].Text:='';
StatusBar2.Panels[1].Text:='';
end;
end;
另外双击chart 在编辑器中选择Tools页点击Add按扭选取other页用Annotation进行属标
取点则更加灵活
 
谢谢maodw76的回复,你能否给我例程给我,发到我的Email上去好吗?
我的Email是:yingfeng03@126.com
本人不胜感谢!
 

Similar threads

后退
顶部