求一能在鼠标移动时在鼠标指针位置显示当前XY坐标的代码，即字符随鼠标移动。(100分)

X

xyf2001721

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-31

• #21

agree

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #22

不要作hook, 系统开销太大. 一般这类的东西也就是用在绘图板上面. 不用整个Form都现实坐标吧.
可以从THintWindow类继承一个控件, 好处是THintWindow是浮动窗体控件, 不受父窗体边界的限制.

 

W

wenna

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #23

多人接受答案了。

 

Y

yypeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #24

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.caption:=' x:'+inttostr(x)+' y'+inttostr;
label1.left:=x+10;
label1.top:=y;
end;