Форум: "WinAPI";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
ВнизНет работает прокрутка в 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.
Пробовал разные варианты - без изменений.
Сейчас просто последняя строка FormShowScrollBox.SetFocus;
← →
EarlVadim © (2006-04-21 10:48) [3]Вот тут ещё попробовал тестовую форму сделать - там все работает.
Появилось предположение, что буксует у меня из-за того, что я динимически создаю все элементы интерфейса с Parent=ScrollBox1
← →
EarlVadim © (2006-04-21 11:25) [4]Все разобрался.....
Это у меня компонента кривая (не стандартная из D7)
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c