проблемы в ScrollBox

← →
SKIPtr © (2012-12-19 22:18) [0]

установил себе в программу ScrollBox
но не могу найти как сделать чтобы
при перетаскивании движка сразу менялась картинка
а то она меняеться только тогда когда отпускаю движок

и еще хочу сделать чтоб движок двигался от колесека на мыши
в интернете нашел как это сделать
но у меня это не сработало
тогда я поставил Label
и в событии ScrollBoxMouseWheel написал
Label.Caption := "XXX"
и когда кручу колесико не чего не происходит
подскажите может нужно еще что нибудь включить

← →
KilkennyCat © (2012-12-20 05:01) [1]

> как сделать чтобы
> при перетаскивании движка сразу менялась картинка

перехватить сообщение об изменении ползунка.

> в интернете нашел как это сделать

я нашел в интернете как испечь батон. а у меня получается компот. почему?
ответишь мне на этот вопрос не задавая мне дополнительных вопросов?

> тогда я поставил Label
> и в событии ScrollBoxMouseWheel написал
> Label.Caption := "XXX" и когда кручу колесико не чего не происходит

цензура порнухи.

> нужно еще что нибудь включить

ScrollBox.TabStop := true;

← →
KilkennyCat © (2012-12-20 05:13) [2]

procedure TForm1.scrlbx1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); var msg, direct: Cardinal; begin if ssShift in Shift then msg := WM_HSCROLL else msg := WM_VSCROLL; if WheelDelta > 0 then direct := SB_LINEUP else direct := SB_LINEDOWN; (Sender as TScrollBox).Perform(msg, direct, 0); (Sender as TScrollBox).Perform(msg, SB_ENDSCROLL, 0); end;

> ScrollBox.TabStop := true;

серовно не делает
заметил сто это событие ловит форма
получаеться формой ловить а потом проверять находиться мыш над этим боксом

> перехватить сообщение об изменении ползунка.

о посмотрел там нету не Change не чего либо еще
в интернете посмотрел там так много описано и плохо что это не решаеться через события
решил поставить ScrollBar
а там можно в Change описать Panel1.Top := 0 - ScrollBar.Position
а еще проще через OnScroll там Panel1.Top := 0 - ScrollPos
наверно так и сделаю

проблемы в ScrollBox Найти похожие ветки