Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Вниз
Поймать 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 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.044 c
