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

Нет работает прокрутка в 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

---

← →
EarlVadim ©   (2006-04-21 11:25) [4]

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

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.026 c