Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

Сообщение от колеса мыши   Найти похожие ветки 

 
arcad ©   (2002-10-10 16:24) [0]

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


 
AL2002 ©   (2002-10-10 16:48) [1]

событие OnMouseWheel


 
arcad ©   (2002-10-10 17:04) [2]

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

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


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

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


 
arcad ©   (2002-10-10 17:43) [4]


> AL2002 © (10.10.02 17:18)

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

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

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


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

type
TCEdit = class(TEdit);

TCEdit(Edit1).OnMouseWheel:=...



Страницы: 1 вся ветка

Текущий архив: 2002.10.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
14-69012
VictorT
2002-09-30 12:16
2002.10.21
число с ведущими нулями в базе.


1-68780
123000
2002-10-11 19:23
2002.10.21
Опять Richedit


7-69039
alexsandri
2002-08-11 12:27
2002.10.21
как ограничить разрешение на запуск программ


4-69079
And_
2002-09-06 10:42
2002.10.21
Регистрация пользователя в Windows 2k (XP)


14-68965
MsGuns
2002-09-27 19:40
2002.10.21
Children Of Bodom. Какой все-таки класс !!!!!