8 845355 Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-17 #1 有一个memo1.在paintbox1的canvas对象上光标到哪,memo1就 显示光标所在的横坐标,纵坐标:x,y 怎么实现?
M myid0602 Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-17 #2 procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin memo1.Text:='X:'+inttostr(X)+' Y:'+inttostr(Y); end;
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin memo1.Text:='X:'+inttostr(X)+' Y:'+inttostr(Y); end;
L lqcros Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-18 #4 不用定义坐标系，其实myid0602哪样就对了， 如果你需要屏幕坐标，把X,Y转一下就行了 point1: TPoint; point1.x := X; point1.y := Y; point1 := ScreenToClient(point1);
不用定义坐标系，其实myid0602哪样就对了， 如果你需要屏幕坐标，把X,Y转一下就行了 point1: TPoint; point1.x := X; point1.y := Y; point1 := ScreenToClient(point1);
Y yuqianyi Unregistered / Unconfirmed GUEST, unregistred user! 2006-04-18 #6 myid0602的方法绝对没问题.,你是不是别的地方出问题了?
