试试下面的方法(注意是写在定时器里的。看看鼠标指向那个控件时能否得到什么):
procedure TForm1.Timer1Timer(Sender: TObject);
var
Pos: TPoint;
Handle: HWND;
Buf: array[0..1024] of Char;
Ctr: TWinControl;
begin
GetCursorPos(Pos);
//得到当前光标位置
Handle := WindowFromPoint(Pos);
//返回当前位置的句柄
HandleText.Text := IntToStr(Handle);
GetClassName(Handle, Buf, 1024);
//得到类名
Ctr := FindControl(Handle);
if Ctr <> nil then
edtParClassName.Text := Ctr.ClassParent.ClassName;
ClassNameText.Text := Buf;
SendMessage(Handle, WM_GETTEXT, 33, Integer(@Buf));
//得到标题
TitleText.Caption := Buf;
//得到内容
end;