如何得到鼠标下面的控件名称或句柄（当前窗口就行）(100分)

A

Axe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #1

要求：1.不用Hook
; ; ; 2.不用TForm.Controls进行枚举

 

J

jqw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #2

form.onmousemove
;getclassname

 

S

sharkHun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #3

2 api function:
GetCursorPos();
WindowFromPoint();

 

R

Rik

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #4

procedure Timer1Timer(sender: TObject);
var
; p: TPoint;
; AWnd: hWnd;
begin
; p := Mouse.CursorPos;
; AWnd := WindowFromPoint(p);
; ShowMessage(format('Window handle: %d',[AWnd]));
end;
试试？

 

A

Axe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-04

• #5

多人接受答案了。