| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

sia ©   (2007-02-21 17:13:00) 

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

---

sia   (2007-02-21 18:03:00) [1]

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

---

Игорь Шевченко   (2007-02-21 17:57:00) [2]

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;

---

sia   (2007-02-21 17:46:00) [3]

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

---

Игорь Шевченко   (2007-02-21 17:37:00) [4]

sia ©   (21.02.07 17:30) [2]


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


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

---

sia   (2007-02-21 17:30:00) [5]

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

---

Игорь Шевченко   (2007-02-21 17:24:00) [6]

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


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

---

Наверх