По ее голому животу бежала мышь. Ниже, ниже... но на самом интересном месте коврик кончился.
Все потомки 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: позволяющее компонентам реагировать на вход и покидание курсора мыши области компонента.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.