关于teechart的难题!解决的人绝对是高手(100分)

  • 主题发起人 主题发起人 xcx227
  • 开始时间 开始时间
X

xcx227

Unregistered / Unconfirmed
GUEST, unregistred user!
teechart有没有点击图形中点的事件,并且要获得所点击点的坐标值
 
那你需要将屏幕点的坐标转换为图形中点的坐标,也即实现坐标的转换
 
能具体说说么?
 
不知是不是你要的.

procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var
tmpX,tmpY:Double;
yv,xv:double;
code:integer;
begin
if Button=mbLeft then
With Chart1.Series[0] do
begin
GetCursorValues(tmpX,tmpY); { <-- get values under mouse cursor }
xv:=0;
yv:=0;
val(GetHorizAxis.LabelValue(tmpX),xv,code);
if round(xv)<=LastValueIndex then yv:=YValue[round(xv)];

statusbar1.panels[0].text:='X:'+GetHorizAxis.LabelValue(tmpX)+' '+
'Y:'+inttostr(round(yv)) ;

end;
end;
 
也没有什么,说明你要做什么吧?没有解决不了的
 
操作的过程是:根据数据库的数据,在teechart控件上画图,我需要对每个点
都要有鼠标点击事件,而且,根据点的数据不同,产生点击事件的内容也不同,请高手帮忙!
 
unit Unit1;
 
to jilonger:能不能定位在点上?
 
ValueIndex这个东东就是点呀,点的索引呀!
 
我的意思是说,当点击在点上的时候弹出对话框,你的例子点在线上就弹出了
 
为什么失望?
 
用ValueIndex!在点取线的过程里,判断ValueIndex的值并执行你所需的操作,不就行了。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
749
SUNSTONE的Delphi笔记
S
S
回复
0
查看
756
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
922
SUNSTONE的Delphi笔记
S
后退
顶部