Текущий архив: 2006.01.01;
Скачать: CL | DM;
Вниз
Вопрос по мышиному колесу Найти похожие ветки
← →
general (2005-12-06 13:04) [0]Отцы, есть форма; на ней ScrollBox, а на нем всякие панельки, уходящие "за горизонт". И хочется, чтобы этот ScrollBox по колесику мыши прокручивался (ScrollBar у него исправно появляется и работает). Вроде бы есть у ScrollBox-а события OnMouseWheelDown, OnMouseWheelUp, но они даже не возбуждаются. Кажется это зависит от типа control-ов на ScrollBox-е (если ListBox-ы - события возбуждаются; Panel - не возбуждаются). Как быть - кто-нить знает? Заранее спасибо.
← →
msguns © (2005-12-06 13:09) [1]Если возбуждается, то это событие !
Если нет, то - на панель. Вот так, дети.
Заранее пожалуйста
← →
Piero © (2005-12-06 14:25) [2]procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position:= ScrollBar1.Position+WheelDelta;
Handled:=true;
end;
Страницы: 1 вся ветка
Текущий архив: 2006.01.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.027 c
