您所在位置：主题：求助!怎样把在chart上的点转换成其坐标系上的值
haptis
[专家分：1260] 发布于 2006-04-26 16:18:00
目的让chart上series的点通过鼠标拖动发生变化 (series是lines形的)
var
Form1: TForm1;
aa:boolean; i:longint;
procedure TForm1.Chart2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
i:=series2.Clicked(x,y);
if i<>-1 then
aa:=true
end;
procedure TForm1.Chart2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
movept:tpoint;
begin
if aa then
begin
movept.x :=x;
movept.Y:=y;
series2.XValue[i]:=movept.X; //问题是怎样把这个鼠标捕捉到的点值转换成chart中对应的坐标系的值呢? 谢谢
series2.YValue[i]:=movept.Y;
//series2.checkdatasource;
series2.Repaint;
end;
end;
var
Form1: TForm1;
aa:boolean; i:longint;
procedure TForm1.Chart2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
i:=series2.Clicked(x,y);
if i<>-1 then
aa:=true
end;
procedure TForm1.Chart2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
movept:tpoint;
begin
if aa then
begin
movept.x :=x;
movept.Y:=y;
series2.XValue[i]:=movept.X; //问题是怎样把这个鼠标捕捉到的点值转换成chart中对应的坐标系的值呢? 谢谢
series2.YValue[i]:=movept.Y;
//series2.checkdatasource;
series2.Repaint;
end;
end;
