что находится под курсором мыши?

← →
sia © (2007-02-21 17:13) [0]

курсор мыши находится за пределами окна моей программы.
мне надо определить, находиться ли он над окном проводника? и если да, то какой каталог там открыт?
как можно это сделать?

← →
Игорь Шевченко © (2007-02-21 17:24) [1]

> мне надо определить, находиться ли он над окном проводника?
>

SetCapture, в OnMouseMove смотреть WindowFromPoint, про каталог ничего не могу сказать

← →
sia © (2007-02-21 17:30) [2]

я сделал
GetCursorPos(rPos) ;
hWnd := WindowFromPoint(rPos);
тем самым получил хендл окна под мышкой. и все. дальше не знаю, что делать.

← →
Игорь Шевченко © (2007-02-21 17:37) [3]

sia © (21.02.07 17:30) [2]

> дальше не знаю, что делать.

GetWindowText например позволит узнать заголовок окна. Если в нем есть имя каталога, то это имя можно оттуда вычислить

← →
sia © (2007-02-21 17:46) [4]

возвращает только строку "FolderView"

sia © (21.02.07 17:46) [4]

Как заготовка:

procedure TForm1.Button1Click(Sender: TObject); begin SetCapture (Handle); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var P: TPoint; H: HWND; AText: array[0..255] of char; begin P := ClientToScreen (Point(X, Y)); H := WindowFromPoint(P); if (H <> Handle) and IsWindow(H) then begin while GetParent(H) <> 0 do H := GetParent(H); GetWindowText(H, AText, SizeOf(AText)); Edit1.Text := AText; ReleaseCapture; end; end;

GetParent помог.
спасибо :)

что находится под курсором мыши? Найти похожие ветки