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

[Alexandr17-10]

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

[ReportCube]

Получаете значение координат курсора, проверяете все контролы на соответствие этим координатам и получаете ответ на свой вопрос

[Alexandr17-10]

я видел способ через Api но он большой и если делать для каждого отдельно то очень много кода получается

[Аватар]

то очень много кода получается

Ни чего не много - в цикле по компонентам формы

[саша40]

Когда курсор мыши на компоненте происходит событие onMouseMove

[Alexandr17-10]

Сообщение от саша40

Когда курсор мыши на компоненте происходит событие onMouseMove

А когда его нет на компоненте и таймером тоже не эфективно а мне эфективный способ

[develsnik]

Попробуй с помощью DragCursor)

[Alexandr17-10]

Сообщение от Аватар

Ни чего не много - в цикле по компонентам формы

а как это сделать циклом просчитать все компоненты и вообщето не получится так как у меня вместо кнопок используются панели и не все панели являются кнопками только 20 штук ну +- еще 10 а остальные панели
и дело в том что для каждой кнопки свои команды кстати вот они прописаны в ини

[LibxEditorParameter-->RUS]
// Command Button FileBtn
YesSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Color=clYellow
YesSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Font-->Color=clblue
YesSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Font-->Size=14
YesSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Caption=&Файл +
YesSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->BorderStyle=1
YesSelectYesEnabledYesClick<--Lib_Ed_2-->FileBtn-->Color=clYellow
YesSelectYesEnabledYesClick<--Lib_Ed_2-->FileBtn-->Font-->Color=clblue
YesSelectYesEnabledYesClick<--Lib_Ed_2-->FileBtn-->Font-->Size=14
YesSelectYesEnabledYesClick<--Lib_Ed_2-->FileBtn-->Caption=&Файл -
YesSelectYesEnabledYesClick<--Lib_Ed_2-->FileBtn-->BorderStyle=2
YesSelectNoEnabledNoClick<--Lib_Ed_2-->FileBtn-->Color=clSilver
YesSelectNoEnabledNoClick<--Lib_Ed_2-->FileBtn-->Font-->Color=clGray
YesSelectNoEnabledNoClick<--Lib_Ed_2-->FileBtn-->Font-->Size=12
YesSelectNoEnabledNoClick<--Lib_Ed_2-->FileBtn-->Caption=Файл
YesSelectNoEnabledNoClick<--Lib_Ed_2-->FileBtn-->BorderStyle=1
NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Color=clAqua
NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Font-->Color=clBlack
NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Font-->Size=12
NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Caption=&Файл
NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->BorderStyle=1

//Command Button EditBtn

Где Lib_Ed_2 - имя формы
FileBtn и т.п - имя кнопки

[Nater]

Можете попробовать использовать свойство Idle формы. Еще лучше - хук на мышку.

[evg_m]

или рыть в сторону приход/уход мышки на TСontrol
WM_MOUSEENTER / WM_MOUSELEAVE (windows мessage)
CM_MOUSEENTER / CM_MOUSELEAVE (Delphi message)

некоторые компоненты (control's) но не все их "переводят" в OnMouseEnter / OnMouseLeave.