Вопрос по мышиному колесу

← →
general (2005-12-06 13:04) [0]

Отцы, есть форма; на ней ScrollBox, а на нем всякие панельки, уходящие "за горизонт". И хочется, чтобы этот ScrollBox по колесику мыши прокручивался (ScrollBar у него исправно появляется и работает). Вроде бы есть у ScrollBox-а события OnMouseWheelDown, OnMouseWheelUp, но они даже не возбуждаются. Кажется это зависит от типа control-ов на ScrollBox-е (если ListBox-ы - события возбуждаются; Panel - не возбуждаются). Как быть - кто-нить знает? Заранее спасибо.

← →
msguns © (2005-12-06 13:09) [1]

Если возбуждается, то это событие !
Если нет, то - на панель. Вот так, дети.

Заранее пожалуйста

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position:= ScrollBar1.Position+WheelDelta;
Handled:=true;
end;

Вопрос по мышиному колесу Найти похожие ветки