Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сообщение от колеса мыши [D6, Win2k]


arcad ©   (2002-10-10 16:24:00) 

Уважаемые мастера.
Как написать обработчик сообщения от колеса мыши?
Как узнать на каком компоненте и в какую сторону повернулось колесо?
Если можно, кусочек кода плиз.


Набережных С.   (2002-10-10 18:24:00) [1]

type
TCEdit = class(TEdit);

TCEdit(Edit1).OnMouseWheel:=...


arcad   (2002-10-10 17:43:00) [2]


> AL2002 © (10.10.02 17:18)

Поймал сообщение от колеса:

procedure WMMouseWheel(var Msg: TMessage);message WM_MOUSEWHEEL;

procedure TForm1.WMMouseWheel(var Msg: TMessage);
begin
Label1.Caption:="А все таки оно вертится";
end;
Как узнать на ком мышь-то в этот момент была?
Желательно узнать прямо в обработчике.


AL2002   (2002-10-10 17:18:00) [3]

>arcad © (10.10.02 17:04)
Ты можешь над контролами событие онмаус мув делать. Чтобы, если мыша над ними, давать какое-то значение глобальной переменной. А событие формы OnMouseWheel пусть уже зависит от значения этой переменной. Посылай им сообщение WM_MOUSEWHEEL.


arcad   (2002-10-10 17:04:00) [4]

.
> AL2002 © (10.10.02 16:48)
> событие OnMouseWheel

Спасибо.
Я написал такой обработчик, но присвоить я его могу только форме.
А мне нужно, что бы на это событие реагировали другие компоненты, например TEdit. А у него нет события OnMouseWheel.
Как быть то?
Нашел вот что:
TControl.MouseWheelHandler(var Message: TMessage).
Может так? Только какой мессадж и как его обрабатывать?
Ни разу не писал обработчик сообщений.


AL2002   (2002-10-10 16:48:00) [5]

событие OnMouseWheel


Наверх

Титульная страница Поиск, карта сайта Написать письмо