Нет работает прокрутка в ScrollBar. Кто сталкивался?

← →
EarlVadim © (2006-04-20 17:19) [0]

Есть форма в ней ScrollBox в котором куча разных компонентов.
Для управлением прокруткой колесом мыши сделал как в сети нашёл

procedure TMainForm.sScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin sScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position+8*(Sign(-1*WheelDelta)); Handled:=True; end;
В инспекторе соответственно проставил событие OnMouseWheel на эту процедуру.
НЕ РАБОТАЕТ.
Пытался трассировать, выяснил, что Запись в POSITION не проходит. То есть до вызова процедуры POSITION=0 после записи любого числа всё-равно POSITION=0;
Что и где я упустил?

← →
Lamer@fools.ua © (2006-04-20 20:35) [1]

procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin with ScrollBox1.VertScrollBar do Position := Position - WheelDelta div 8; Handled := True; end;

← →
EarlVadim © (2006-04-21 10:39) [2]

ВСЕ РАВНО Не работает.
Было подозрение что где-то намудрил с ScrollBox.SetFocus.
Пробовал разные варианты - без изменений.
Сейчас просто последняя строка FormShow

ScrollBox.SetFocus;

← →
EarlVadim © (2006-04-21 10:48) [3]

Вот тут ещё попробовал тестовую форму сделать - там все работает.
Появилось предположение, что буксует у меня из-за того, что я динимически создаю все элементы интерфейса с Parent=ScrollBox1

Все разобрался.....
Это у меня компонента кривая (не стандартная из D7)

Нет работает прокрутка в ScrollBar. Кто сталкивался? Найти похожие ветки