chart 中动态显示坐标值?(100分)

wsd · 1999-10-03

chart1中有一条series,当鼠标在chart1移动时,可以显示鼠标处的坐标值,
关键是要在chart1 的鼠标处出现一个矩形提示框,中间能显示当前坐标值及其他一些信息.

kokusan · 1999-10-08

为何没有人回答？

hntangwei · 1999-10-08

试试在CHART中用OnMouseMove,然后取当前的值试试!

hubdog · 1999-10-08

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label3.caption:=inttostr(x);
label4.caption:=inttostr

;
label1.caption:=floattostr(Chart1.LeftAxis.CalcPosPoint( x ));
end;

hubdog · 1999-10-08

更正：
label1.caption:=floattostr(Chart1.LeftAxis.CalcPosPoint( y ));

kokusan · 1999-10-08

但是如何让label的位置随着鼠标的移动而动？

hubdog · 1999-10-08

TChart.Showhint:=true;
再接管TapplicationEvents.onshowhint,根据mousepos改变hintinfo.hintpos
根据x,y改变hintstr,改变hintinfo.ReshowTimeout,HideTimeout使其显示时间长一些

hubdog · 1999-10-08

this method may be not godd,so I think
use
label1.left:=x;
lable1.top:=y;

wsd · 1999-10-08

多人接受答案了。