procedure TRptIncExpTideFm.BarMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var tmpX,tmpY:Double; begin if PtInRect(Bar.ChartRect,Point(X-Bar.Width3D,Y+Bar.Height3D))then begin With Series1 do begin GetCursorValues(tmpX,tmpY); edit1.Text:=GetVertAxis.LabelValue(tmpY)+''+GetHorizAxis.LabelValue(tmpX); end; end; end; 可以用这个取得值
Shift: TShiftState; X, Y: Integer);
var
tmpX,tmpY:Double;
begin
if PtInRect(Bar.ChartRect,Point(X-Bar.Width3D,Y+Bar.Height3D))then
begin
With Series1 do
begin
GetCursorValues(tmpX,tmpY);
edit1.Text:=GetVertAxis.LabelValue(tmpY)+''+GetHorizAxis.LabelValue(tmpX);
end;
end;
end;
可以用这个取得值