Delphi. Hint. Как задать скорость появления подсказки?

Question

[KTG]

Заморочился появлением кнопки при наведении на ячейку в DBGridEh.
Сделал события на OnMouseMove (https://toster.ru/q/383765), но есть некие неудобства и косяки.
Подумал и вспомнил про событие на колонке OnDataHintShow.

Собственно вот в чем вопрос.
При наведении на ячейку, появляется в ней кнопка, но!
Есть задержка до появления кнопки. (до появления hint'а по сути). Как эту задержку убрать.

И как обрабатывать событие при отвода мыши с ячейки, что бы "hint" исчезал?

Comments

[KTG]

Решил к форме привязать процедуру c CM_MOUSELEAVE. Где в LParam передается компонент с которого слетела мышка.
На Grid'e OnMouseMove повесил Application.HintPause := 0;
В итоге обрабатываю при выполнении условия Message.LParam = int(DbgridEh) - повесил исчезание кнопки, и собственно возвращаю Applcation.HintPause := 500;

Осталась одна проблема.
Событие срабатывает когда я перевожу курсор с компонента на компонент. Т.е. уход с грида на кнопку в его ячейки, заставляет кнопку исчезнуть, а она нужна :D
надо исключить эту кнопку, т.е. при уводе курсора с грида (CM_MOUSELEAVE) проверять куда курсор попал, и если это не кнопка, то делать все как надо.

Вопрос теперь как из CM_MOUSELEAVE проверять CM_MOSUEENTER?

[KTG]

Разобрался - Delphi. Как из события с message CM_MOUSEENTER вызывать событие с CM_MOUSEENTER?
Получал в событии MOUSELEAVE, текущий объект под курсором через функцию FindDragTarget

Answer 1

[Константин Цветков]

Application.HintHidePause :=
Application.HintPause :=
Application.HintShortPause :=
Application.HideHint;
Application.HintMouseMessage();

Comments

[KTG]

Только для всего приложения? или можно задать HintPause для конкретного "объекта"?

[Константин Цветков]

KTG: Application.HintMouseMessage(); Имеет параметром TControl.

[KTG]

Константин Цветков: насколько я понял HintMouseMessage просто позволяет привязать Hint к TControl.

Answer 2

[KTG]

При первом наведении мыши на DBgrid ставлю Application.HintPause := 0;
И меняю его к стандартному при уходе с компонента, по событию MouseLeave (CM_MOUSELEAVE).
Аpplication.HintPause := 500;