| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по мышиному колесу
general © (2005-12-06 13:04:00)Отцы, есть форма; на ней ScrollBox, а на нем всякие панельки, уходящие "за горизонт". И хочется, чтобы этот ScrollBox по колесику мыши прокручивался (ScrollBar у него исправно появляется и работает). Вроде бы есть у ScrollBox-а события OnMouseWheelDown, OnMouseWheelUp, но они даже не возбуждаются. Кажется это зависит от типа control-ов на ScrollBox-е (если ListBox-ы - события возбуждаются; Panel - не возбуждаются). Как быть - кто-нить знает? Заранее спасибо.
Piero (2005-12-06 14:25:00) [1]procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position:= ScrollBar1.Position+WheelDelta;
Handled:=true;
end;
msguns (2005-12-06 13:09:00) [2]Если возбуждается, то это событие !
Если нет, то - на панель. Вот так, дети.
Заранее пожалуйста
| |
