| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
проблемы в ScrollBox [D7]
SKIPtr © (2012-12-19 22:18:00)установил себе в программу ScrollBox
но не могу найти как сделать чтобы
при перетаскивании движка сразу менялась картинка
а то она меняеться только тогда когда отпускаю движок
и еще хочу сделать чтоб движок двигался от колесека на мыши
в интернете нашел как это сделать
но у меня это не сработало
тогда я поставил Label
и в событии ScrollBoxMouseWheel написал
Label.Caption := 'XXX'
и когда кручу колесико не чего не происходит
подскажите может нужно еще что нибудь включить
SKIPtr (2012-12-20 10:21:00) [1]
> ScrollBox.TabStop := true;
серовно не делает
заметил сто это событие ловит форма
получаеться формой ловить а потом проверять находиться мыш над этим боксом
> перехватить сообщение об изменении ползунка.
о посмотрел там нету не Change не чего либо еще
в интернете посмотрел там так много описано и плохо что это не решаеться через события
решил поставить ScrollBar
а там можно в Change описать Panel1.Top := 0 - ScrollBar.Position
а еще проще через OnScroll там Panel1.Top := 0 - ScrollPos
наверно так и сделаю
KilkennyCat (2012-12-20 05:13:00) [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;
KilkennyCat (2012-12-20 05:01:00) [3]
> как сделать чтобы
> при перетаскивании движка сразу менялась картинка
перехватить сообщение об изменении ползунка.
> в интернете нашел как это сделать
я нашел в интернете как испечь батон. а у меня получается компот. почему?
ответишь мне на этот вопрос не задавая мне дополнительных вопросов?
> тогда я поставил Label
> и в событии ScrollBoxMouseWheel написал
> Label.Caption := 'XXX' и когда кручу колесико не чего не происходит
цензура порнухи.
> нужно еще что нибудь включить
ScrollBox.TabStop := true;
| |
