一个关于tchart的问题，请大家帮帮忙。(100分)

C

cocoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #1

我想用鼠标拾取tchart中point每个点的一些信息，比如鼠标移到该点上，就显示出该点
的坐标。那程序应该怎么写啊？

 

H

hurryman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #2

procedure mousemove(sender;tobject;......);
var x,y;inetger;
begin
就这样，它带参数的，你可以试一下
end;
给我分哟！

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-07

• #3

procedure TForm1.Chart1MouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin
Label1.Caption := 'x=' + IntToStr(x) + ' y=' + IntToStr;
end;
或者你用ClientToScreen转换成屏幕坐标

 

C

Cardinal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-06

• #4

hehe 来迟了
procedure TForm1.Chart1MouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin

Label1.Caption:=inttostr(x)+chr(10)+inttostr;
end;