Как узнать что указатель мыши зашел внутрь границ компонента

← →
theEnter (2002-11-12 07:18) [0]

Вот такой вопрос: Как узнать что указатель мыши зашел внутрь границ компонента - например TImage.. и соответственно - вышел за его пределы?

← →
MBo © (2002-11-12 07:20) [1]

создать наследника с CM_MouseEnter и -Leave

← →
theEnter (2002-11-12 07:25) [2]

Что типа этого ?

TMyPainBox = class(TPaintBox)
private
{ Private declarations }
fOnMouseEnter: TNotifyEvent;
fOnMouseLeave: TNotifyEvent;
procedure MouseEnter(Msg: TMessage); message CM_MOUSEENTER;
procedure MouseLeave(Msg: TMessage); message CM_MOUSELEAVE;
published
{ Published declarations }
property onMouseEnter: TNotifyEvent read fOnMouseEnter write fOnMouseEnter;
property onMouseLeave: TNotifyEvent read fOnMouseLeave write fOnMouseLeave;

Или что-то здесь не так?

← →
MBo © (2002-11-12 07:33) [3]

да.
http://www.swissdelphicenter.ch/en/showcode.php?id=1068

← →
theEnter (2002-11-12 07:36) [4]

2MBo - thx за ссылку! :-)

Всего-то обработать TComponent.onMouseMove и больше ничего не надо..

2Song: Не пойдет! Если даже не особо быстро перемещать мышь, то наблюдаются всякие артефакты (мышь ушла, а компонент все еще не в курсе событий :-)

Как узнать что указатель мыши зашел внутрь границ компонента Найти похожие ветки