Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Поймать TImage под курсором [D7]

ORMADA © (2005-06-06 13:13:00)
Доб день!
Как в своём приложении поймать компонент находящийся полд мышкой ?
пробовал такой код
var Pt: TPoint; TWC: TWinControl; begin GetCursorPos(Pt); TWC := FindControl(WindowFromPoint(Pt)); label1.Caption := TWC.ClassName;
ловит, но не всё не могу поймать Image или переделаный Image который умеет ловить MouseEnter MouseLeave.
Как поймать ?

ORMADA (2005-06-07 07:15:00) [1]
ВСЕМ СПАСИБО!
как показала практика FindDragTarget ловит все контролы
FindVCLWindow не ловит наследников TGraphicControl
ControlAtPos чё то ваще поймала только TImage :)

Abessalom (2005-06-06 16:29:00) [2]
В координатах экрана:
Controls.FindDragTarget, Controls.FindVCLWindow

begin...end (2005-06-06 13:48:00) [3]
TWinControl.ControlAtPos

kot andrei (2005-06-06 13:31:00) [4]
если нужен только image то чем mouseleave и enter не устраивает

ORMADA (2005-06-06 13:29:00) [5]
тогда узнать какой компонент находиться по мышью можно толко полным перебором компонентов и проверкой входят ли координаты мыши в их дипазон ?

kot andrei (2005-06-06 13:26:00) [6]
ага

ORMADA (2005-06-06 13:25:00) [7]
kot andrei :) мне пофиг на лабел хачу Image
но хде то читал что комопненты наследованные от TGraphicControl не имеют хендл потому и не ловятся так ли это ?

kot andrei (2005-06-06 13:20:00) [8]
tlabel тоже наверное не ловиться? :)

Наверх

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