如何使tchart控件的光标变成crcross，很急!(10分)

C

cdpclj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #1

如何在程序运行的时候，触发某个事件
比如我点击一个按钮，使得在tchart的范围内，光标变成crcross;
procedure TForm1.xg_btnClick(Sender: TObject);
begin
tchart1.cursor := crcross;
end;
为什么不行呢？还有呀，series1怎么用？谢谢1

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #2

是不是里边没数据？

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #3

写到鼠标移动时间里吧
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
chart1.cursor := crcross;
end;

 

C

cdpclj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #4

我试着写进了鼠标移动事件，可是光标总是闪动。
还有呀，如果我的chart里有了曲线，就是根据数据画的，
那么执行series1.cursor := crcross后，当我把光标方在曲线上，光标才能变成crcross，
放在其他地方，光标还是没有变化。

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #5

写到form的MouseMove事件中，
先判断鼠标是否在Tchart上，是就改变形状，否则恢复

 

C

cdpclj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #6

谢谢你的建议，可是我需要让按钮触发让光标改变形状

 

C

cdpclj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #7

谢谢你的关注，
我找到了
tchart1.originalcursor := crcross;
光标会改变。