|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
ScrollBox без автопрокрутки
Уважаемые эксперты, есть компонент ScrollBox, внутри которого несколько компонент, имеющих фокус ввода. Как сделать, что бы при перемещении фокуса ввода между этими компонентами, не возникало прокрутки области в ScrollBox ?? (однако сами полосы прокруток, с возможностью ручного прокручивания должны присутствовать)
|
#2
|
|||
|
|||
AutoScroll := false
невероятно, правда ? |
#3
|
|||
|
|||
Уважаемый robt,
Цитата:
|
#4
|
|||
|
|||
Цитата:
Код:
/// вставить над определением формы type TScrollBox = class(Forms.TScrollBox) protected procedure AutoScrollInView(AControl: TControl); override; end; /// вставить над определением формы /// вставить в имплементейшн procedure TScrollBox.AutoScrollInView(AControl: TControl); begin exit; end; /// вставить в имплементейшн |
Этот пользователь сказал Спасибо robt за это полезное сообщение: | ||
expmrs (06.06.2012)
|
#5
|
|||
|
|||
Большое спасибо, то что нужно (exit можно убрать, объявив просто пустой метод)
|
#6
|
|||
|
|||
Цитата:
|