Поймать 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 не устраивает

TWinControl.ControlAtPos

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

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

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

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