技巧三 Chart上曲线的点鼠标放上去显示横纵坐标

技巧三：
在chart的上曲线上的点 鼠标放上去，显示此点的横纵坐标
代码如下：
procedure
TForm1.pntsrsSeries1MouseEnter(Sender:
TObject);
var
i:integer;
x1,y1:string;
begin

pntsrsSeries1.Cursor:=crHandPoint;
cht1.showHint:=true;

i:=cht1.Series[1].GetCursorValueIndex;

x1:=FormatFloat(‘0.000‘,cht1.Series[1].XValue[i]);

y1:=FormatFloat(‘0.000‘, cht1.Series[1].YValue[i]);
cht1.Hint:=‘X: ‘+x1+‘
Y: ‘+y1;

end;

技巧三 Chart上曲线的点鼠标放上去显示横纵坐标,布布扣,bubuko.com