Как обрабатывать WM_MOUSEMОVE для контрола

← →
i-s-v © (2005-08-05 18:43) [0]

Например, для кнопки.
Вообще-то надо отрисовать кнопку в "горячем" состоянии.

← →
Eraser © (2005-08-05 21:54) [1]

i-s-v © (05.08.05 18:43)
Вообще-то надо отрисовать кнопку в "горячем" состоянии.

Для этого нужно перехватывать сообщение CM_MOUSEENTER и CM_MOUSELEAVE для обратного эффекта.

Все потомки 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); begin inherited; {действия на вход мыши в область компонента} end; procedure MyComponent.CMMouseLeave(var msg: TMessage); begin inherited; {действия на покидание мыши области компонента} end; Дополнение Часто приходится сталкиваться с ситуацией, когда необходимо обработать два важных события для визуальных компонентов: MouseEnter - когда событие мыши входит в пределы визуального компонента; MouseLeave - когда событие мыши оставляет его пределы. Известно, что все Delphi объявляет эти сообщения в виде: Cm_MouseEnter; Cm_MouseLeave. Т.е. все визуальные компоненты, которые порождены от TControl, могут отлавливать эти события. Следующий пример показывает как создать наследника от TLabel и добавить два необходимых события OnMouseLeave и OnMouseEnter. (*///////////////////////////////////////////////////////*) (*// Author: Briculski Serge (*// E-Mail: bserge@airport.md (*// Date: 26 Apr 2000 (*///////////////////////////////////////////////////////*) unit BS_Label; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TBS_Label = class(TLabel) private { Private declarations } FOnMouseLeave: TNotifyEvent; FOnMouseEnter: TNotifyEvent; procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; protected { Protected declarations } public { Public declarations } published { Published declarations } property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave; property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter; end; procedure Register; implementation procedure Register; begin RegisterComponents("Custom", [TBS_Label]); end; { TBS_Label } procedure TBS_Label.CMMouseEnter(var Message: TMessage); begin if Assigned(FOnMouseEnter) then FOnMouseEnter(Self); end; procedure TBS_Label.CMMouseLeave(var Message: TMessage); begin if Assigned(FOnMouseLeave) then FOnMouseLeave(Self); end; end.

← →
i-s-v © (2005-08-06 13:20) [2]

Чуть не то...
В смысле для контрола на WinAPI... Без VCL...

← →
Eraser © (2005-08-06 13:32) [3]

i-s-v © (06.08.05 13:20) [2]

А разницы-то?! Главное тут обрабатывать CM_MOUSEENTER и CM_MOUSELEAVE.

← →
i-s-v © (2005-08-06 15:35) [4]

Я чего-то не догоняю.. Неужели настолько тупой?..
Программа написана на чистом WinAPI без использования VCL, а CM_MOUSEENTER объявлен в Controls.

Создаю главное окно. Создаю button c WS_CHILD or bS_OWNERDRAW.
B WM_DRAWITEM отрисовываю 2 состояния: обычное и нажатое.
Хотелось бы отрисовать еще и третье, горячее..
Пытался в WM_MOUSEMOVE отследить, когда курсор находит на кнопку - не получается: после того, как курсор находит на эту самую кнопку, сообщение WM_MOUSEMOVE гланому окну не передается...
Пробовал при создании главного окна вызывать SetCapture - все-равно, как только курсор находит на кнопку, WM_MOUSEMOVE не передается...

← →
Eraser © (2005-08-06 16:54) [5]

i-s-v © (06.08.05 15:35) [4]

А где происходит обработка WM_MOUSEMOVE? В оконной процедуре или в цикле обработки сообщений потока?

В оконной процедуре.. А надо в цикле?..

i-s-v © (06.08.05 17:25) [6]

Да возможно, т.к. сообщение WM_MOUSEMOVE отправляется через PostMessage и является асинхронным.

Как обрабатывать WM_MOUSEMОVE для контрола Найти похожие ветки