Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c