Скачать: CL | DM;

Поймать TImage под курсором   Найти похожие ветки 

← →
ORMADA ©   (2005-06-06 13:13) [0]

Доб день!
Как в своём приложении поймать компонент находящийся полд мышкой ?
пробовал такой код

var
 Pt: TPoint;
 TWC: TWinControl;
begin
 GetCursorPos(Pt);

 TWC := FindControl(WindowFromPoint(Pt));
 label1.Caption := TWC.ClassName;

ловит, но не всё не могу поймать Image или переделаный Image который умеет ловить MouseEnter MouseLeave.
Как поймать ?

---

← →
kot andrei   (2005-06-06 13:20) [1]

tlabel тоже наверное не ловиться?  :)

---

← →
ORMADA ©   (2005-06-06 13:25) [2]

kot andrei   :) мне пофиг на лабел хачу Image
но хде то читал что комопненты наследованные от TGraphicControl не имеют хендл потому и не ловятся так ли это ?

---

← →
kot andrei   (2005-06-06 13:26) [3]

ага

---

← →
ORMADA ©   (2005-06-06 13:29) [4]

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

---

← →
kot andrei   (2005-06-06 13:31) [5]

если нужен только image то чем mouseleave и enter не устраивает

---

← →
begin...end ©   (2005-06-06 13:48) [6]

TWinControl.ControlAtPos

---

← →
Abessalom   (2005-06-06 16:29) [7]

В координатах экрана:
Controls.FindDragTarget, Controls.FindVCLWindow

---

← →
ORMADA ©   (2005-06-07 07:15) [8]

ВСЕМ СПАСИБО!
как показала практика FindDragTarget ловит все контролы
FindVCLWindow не ловит наследников TGraphicControl
ControlAtPos чё то ваще поймала только TImage :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c