Question

Delphi 用的Char控件 添加FastLine 显示曲线，想实现鼠标点击 取横竖坐标，如何实现，请高手指点？非常感

Answer 1

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

var
xx,yy:Double;
begin
Chart1.Series[0].GetCursorValues(xx,yy);
Label1.Caption:=floattostr(xx);
Label2.Caption:=floattostr(yy);
end;