Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2011, 15:30   #1
Хамяг
Форумчанин
 
Аватар для Хамяг
 
Регистрация: 22.08.2008
Сообщений: 105
По умолчанию Не срабатывает событие OnMouseWheel

в общем, имется класс и объект в нём ScrollBox.

в private записано:
Код:
    procedure EBoxMouseWheel(Sender: TObject; Shift: TShiftState;
      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
сама процедура:

Код:
procedure TWinButton.EBoxMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  EBox.VertScrollBar.Position:=EBox.VertScrollBar.Position - WheelDelta;
end;
в конструкторе также записано, что
Код:
EBox.OnMouseWheel:=EBoxMouseWheel;
данный код должен обеспечивать прокрутку ScrollBox с помощью колёсика мыши. при этом, если просто поместить скроллбокс на форму и прописать событие, то оно отлично работает.

что я не так сделал?

p.s. классы осваиваю впервые, поэтому не шибко шарю во всём этом.
Хамяг вне форума Ответить с цитированием
Старый 24.05.2011, 15:59   #2
Хамяг
Форумчанин
 
Аватар для Хамяг
 
Регистрация: 22.08.2008
Сообщений: 105
По умолчанию

пфф, всё куда проще оказалось... всего-то SetFocus поставить надо было
Хамяг вне форума Ответить с цитированием
Старый 24.05.2011, 16:27   #3
Хамяг
Форумчанин
 
Аватар для Хамяг
 
Регистрация: 22.08.2008
Сообщений: 105
По умолчанию

напишу ещё вопрос один, не стану создавать тему, вдруг опять сам найду решение =D

в общем, имеется Image и Label на ней. У Image есть события OnMouseEnter и OnMouseLeave. однако, при наведении на Label срабатывает событие OnMouseLeave. как это можно исправить?
Хамяг вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработчик OnMouseWheel (Down, Up) Alex2 Общие вопросы Delphi 6 14.03.2011 00:08
OnMouseWheel не реагирует когда мышь на компоненте Selestis Lazarus, Free Pascal, CodeTyphon 2 03.01.2011 00:18
Условие не срабатывает segail Microsoft Office Excel 5 15.08.2010 15:10
Не срабатывает чексбокс Syltan PHP 2 12.07.2010 03:29
Почему обработчики OnMouseWheel происходят несколько раз подряд? (Delphi7) DomiNick Общие вопросы Delphi 5 23.08.2009 22:11