Получить текст под курсором

[wolfaleks]

Ниже приведеный код позволяет получить информацию об окнах

под курсором, а как получить текст в окне ? ( Это web страница,загруженая в WebBrowser)

HELP !!!



Код:

Код: Выделить всё

procedure TMainForm.ShowHwndAndClassName(CrPos: TPoint);
var
  hWnd,hWnd1: THandle;
  aName: array [0..255] of Char;
  WName:array [0..255] of Char;
begin
  hWnd := WindowFromPoint(CrPos);
  hWnd1:= ChildWindowFromPoint(hWnd,CrPos);
  Label1.Caption := 'Handle : ' + IntToStr(hWnd);
  Label4.Caption := 'Child :' + IntToStr(hWnd1);
  GetWindowText(hWnd,WName,50); 
  Label3.Caption := 'WinText : ' +string(WName);
  if Boolean(GetClassName(hWnd, aName, 256)) then
	Label2.Caption := 'ClassName : ' + string(aName)
  else
	Label2.Caption := 'ClassName : not found';
end;

[Savant]

wolfaleks
Цитата:



как получить текст в окне ?



А что у тебя появляется в Label3 ?

[wolfaleks]

в Label3 я ставлю для пробы разные параметры



В данном случае сюда вывожу Текст окна т.е название.

[uStick]

wolfaleks



хм... дык вроде GetWindowText и вернет тебе текст из окна, т.е. не его название, а содержимое... только вот... вряд ли с WebBrowser-ом это пройдет...



Кстати, если используем бразуер типа IE можно порыться в msdn... тама куча полезной информации... так что ждем подробного описания проблемы...

[wolfaleks]

GetWindowText возвращает текст названия окна (код я привел выше)



Я так понимаю проблема гораздо глубже

В окне WebBrowser при наведении на любую точку ,Handle окна верхнего

уровня и Child одинаковые и не меняются по всему полю,

а мне надо отловить на web странице слово под мышиным курсором...