По ее голому животу бежала мышь. Ниже, ниже... но на самом интересном месте коврик кончился.
Все потомки TComponent могут посылать сообщения CM_MOUSEENTER и CM_MOUSELEAVE во время вхождения и покидания курсора мыши области компонента. Если вам необходимо, чтобы ваши компоненты обладали реакцией на эти события, необходио написать для них соответствующие обработчики.
procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
..
..
..
procedure MyComponent.CMMouseEnter(var msg:TMessage);
begininherited;
{действия на вход мыши в область компонента}end;
procedure MyComponent.CMMouseLeave(var msg: TMessage);
begininherited;
{действия на покидание мыши области компонента}end;
Дополнение
Часто приходится сталкиваться с ситуацией, когда необходимо обработать два
важных события для визуальных компонентов:
MouseEnter - когда событие мыши входит в пределы визуального компонента;
MouseLeave - когда событие мыши оставляет его пределы.
Известно,
что все Delphi объявляет эти сообщения в виде:
Cm_MouseEnter;
Cm_MouseLeave.
Т.е. все визуальные компоненты, которые порождены от
TControl, могут отлавливать эти события. Следующий пример показывает как создать
наследника от TLabel и добавить два необходимых события OnMouseLeave и
OnMouseEnter.
Добавление события OnMouseLeave: позволяющее компонентам реагировать на вход и покидание курсора мыши области компонента.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.