Delphi鼠标悬停提示文字提示.rar

Delphi实现鼠标悬停时显示文字提示的功能范例，在一个图表中显示数据，teechart建立曲线图，编辑图表-〉系列-〉标记-〉-〉样式，选择标签和值。鼠标在图上移动，会适时显示数据，无三方控件，D7直接编译。代码无效部分为竖线指示，但是占用cpu过大，予以屏蔽，TempX:=StrToFloat(CurrToStr(Chart1.BottomAxis.CalcPosPoint(X-5)));X-5为3D图形的X轴偏移量。