关于曲线坐标的问题?

[iceprince007]

我用Tchart控件做了一个曲线,如何能在鼠标指向该条曲线某一点时,显示该点的坐标,请各位大侠帮帮忙!!!

[djmdjmdjm]

procedure TDBQX.DBChart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
{ This procedure draws the crosshair lines }
Procedure DrawCross(AX,AY:Integer);
begin
With DBChart1,Canvas do
begin
Pen.Color:=clYellow;
Pen.Style:=psSolid;
Pen.Mode:=pmXor;
Pen.Width:=1;
MoveTo(ax,ChartRect.Top-Height3D);//画十字架
LineTo(ax,ChartRect.Bottom-Height3D);
MoveTo(ChartRect.Left+Width3D,ay);
LineTo(ChartRect.Right+Width3D,ay);
end;
end;

Var tmpX,tmpY:Double;
lab,str:string;
i:integer;
ss:TFastLineSeries;
begin
DBChart1.Cursor:=crCross;
DBChart1.OriginalCursor:=DBChart1.Cursor;
DBChart1.Repaint;
if (OldX<>-1) then
begin
DrawCross(OldX,OldY); // 画旧点
OldX:=-1;
end;

if PtInRect( DBChart1.ChartRect, Point(X-DBChart1.Width3D,Y+DBChart1.Height3D) ) then
begin
DrawCross(x,y); // 画新点并保存
OldX:=x;
OldY:=y;

ss.GetCursorValues(tmpX,tmpY); //写文字
lab:=ss.GetVertAxis.LabelValue(tmpY);
QuDatetime(tmpx,str);
dbchart1.Canvas.TextOut(x,y,lab+' '+str);
end;
end;

[Kshape_zh]

是否可以这样
用mousemove得到坐标值
然后用p := ScreenToClient(p);转换成客户区的坐标
在减去DBChart的X，Y到两边的距离

[iceprince007]

TO djmdjmdjm(狄惊梦):
这个方法是能够显示出做坐标，可我要做的是当鼠标指向曲线时，显示坐标，鼠标没有指向曲线时，就什么也不显示．我是一个刚学delphi的菜鸟，请大侠帮帮忙，分还可以再加，谢谢．