技巧三 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;