有个DBChart的问题想请教各位高手:
假设曲线图中x轴坐标范围为0~100,在曲线图中任一位置点击鼠标,如何能获得鼠标所在位置对应的x轴坐标值??能实现吗?我用OnClickBackground事件,但是获得的是相对于整个窗体的x,y值,不是曲线图里的坐标值。
请多多指点!万分着急!谢谢了!
假设曲线图中x轴坐标范围为0~100,在曲线图中任一位置点击鼠标,如何能获得鼠标所在位置对应的x轴坐标值??能实现吗?我用OnClickBackground事件,但是获得的是相对于整个窗体的x,y值,不是曲线图里的坐标值。
请多多指点!万分着急!谢谢了!
解决方案 »
- 救命呐!!!!!!!!!救命呐!!!!!!!!!救命呐!!!!!!!!!
- 求[]号的用法(没分了,累足了再加)
- 用delphi7写了个程序,用的ADO,现在急着做安装盘,那位朋友提供一种快速、过程漂亮的安装盘制作工具
- 求教ADOQuery的Filter的用法
- 在用dbExpress连接到mysql后,如何将数据库中的数据以表格的形式显示出来
- 如何实现SQL2000的数据库在两个不相连接的局域网中实现共享
- 判断某一字符或字符串在一字符串中,用什么函数,返回的为布尔值?
- 大哥们快帮忙,怎样用SQL语句按Edit.text中的内容查询字段,急!!!!!!!!!!!!!!!!!!!!!!!!!
- 請大家試試我分布的新軟件!
- 如何实现数据库的导入导出功能??
- 用Socket连接中间件出现找不到成员的错误!但是DCOM可以!
- 变猩猩了,散分
Form1: TForm1;
MyAxis : TChartAxis ;
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
tx,ty:double;
begin
if not assigned(MyAxis) then
begin
MyAxis := TChartAxis.Create(Chart1);
chart1.Series[0].CustomVertAxis := MyAxis;
With MyAxis do
begin
Axis.Color:=clGreen ;
Title.Caption := 'Extra axis' ;
Title.Font.Style:=[fsBold];
Title.Angle := 90;
StartPosition:=50;
EndPosition:=1000;
end;
end;
chart1.Series[0].GetCursorValues(tx,ty);
MyAxis.PositionPercent := x*100/chart1.Width; //percentage of Chart rectangle
end;GetCursorValues就是你想要的