Форум: "Начинающим";
Текущий архив: 2013.09.01;
Скачать: [xml.tar.bz2];
Внизпроблемы в 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;
← →
SKIPtr © (2012-12-20 10:21) [3]
> ScrollBox.TabStop := true;
серовно не делает
заметил сто это событие ловит форма
получаеться формой ловить а потом проверять находиться мыш над этим боксом
> перехватить сообщение об изменении ползунка.
о посмотрел там нету не Change не чего либо еще
в интернете посмотрел там так много описано и плохо что это не решаеться через события
решил поставить ScrollBar
а там можно в Change описать Panel1.Top := 0 - ScrollBar.Position
а еще проще через OnScroll там Panel1.Top := 0 - ScrollPos
наверно так и сделаю
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.09.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c