关于chart的问题！（在线等待！！）(100分)

我想做一个功能，就是当鼠标移到chart的图形上某一点时（我用的是折线图）就能显示
出相应点的x,y值。
我看delphi自带的例子，他讲的是chart中只有一个series的情况，但我的chart中有好几
个series，请富翁们教我！！

问题自行解决^u^

谢谢大家了！！

请教版主：我可以收回问题吗？

大哥，只要我这次发言后，问题就不能删除了，哈哈，把经验Email给我吧！
feifan731@163.net

留下mail，给你一份程序看看就会了

to:墙头草。whyme@hzliqun.com

哈哈，人一定要靠自己，看来很有道理

墙头草，给我也来一份，先谢谢了
xcx227@163.com

to 楼主
你的帖子，一旦有人UP，那么你就只有将分分出去。
没有其他办法。（你的问题好象已经解决了。）

to 楼主
我也想完成类似的功能，能不能发份Email给我。
mltyj2001@163.net

我做的功能也不是很完善，只是基本能实现这个功能

demo下有例子，学习一下，我就是从那里学来的
demo下的例子是一个series，我有多个series就做了一个循环，但我觉得这个方法不好

请教各位富翁有没有更好的方法？？？

to 墙头草,thgerman
ctx62@163.com
发个例子学习学习

to 墙头草，俺也等着你的邮件呢^u^

前提是：各Series之间存在数据对照关系
i := ValueIndex;
if (i > 0) and (i <= Series_main.count - 1) then
begin
if Series_main.GetHorizAxis = Series1.GetHorizAxis then
begin
if i - (Series_main.Count - Series1.Count) >= 0 then
TextOutStr0 := Series1.Title + '(' + FormatFloat('##0.00',
Series1.YValues[i - (Series_main.Count - Series1.Count)]) + ') ';
if i - (Series_main.Count - Series2.Count) >= 0 then
TextOutStr0 := TextOutStr0 + Series2.Title + '(' + FormatFloat('##0.00',
Series2.YValues[i - Series_main.Count + Series2.Count]) + ') ';
if i - (Series_main.Count - Series3.Count) >= 0 then
TextOutStr0 := TextOutStr0 + Series3.Title + '(' + FormatFloat('##0.00',
Series3.YValues[i - Series_main.Count + Series3.Count]) + ') ';
if i - (Series_main.Count - Series4.Count) >= 0 then
TextOutStr0 := TextOutStr0 + Series4.Title + '(' + FormatFloat('##0.00',
Series4.YValues[i - Series_main.Count + Series4.Count]) + ') ';
if (Chart_Base.ControlCount > 2) {and (length(TextOutStr0) > 0)} then
TLabel(Chart_Base.Controls[0]).Caption := TextOutStr0;
end;
//没有整理，自己研究吧。

顺便问一下大家有没有做股票分析系统的？可以交个朋友的
EMAIL：jilonger@hotmail.com

多人接受答案了。