Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2019, 07:40   #1
dsbv
Пользователь
 
Регистрация: 21.03.2019
Сообщений: 20
По умолчанию управление ScrollBox своими кнопками

Не могу понять как заставить ScrollBox прокручиваться при ScrollBox1.VertScrollBar.Visible:=F alse;
если бегунки видимые то работает
Код:
procedure TForm1.Button_upClick(Sender: TObject);
var
 Scr_pos:Integer;
begin
Scr_pos:= ScrollBox1.VertScrollBar.Position;
ScrollBox1.VertScrollBar.Position:=Scr_pos-10;
end;
dsbv вне форума Ответить с цитированием
Старый 12.04.2019, 09:14   #2
dsbv
Пользователь
 
Регистрация: 21.03.2019
Сообщений: 20
По умолчанию

решил проблему
Код:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 scr_pos:Integer;
begin
 scr_pos:=ScrollBox1.VertScrollBar.Position;
 ScrollBox1.VertScrollBar.Position:= scr_pos-50;
 ShowScrollBar(ScrollBox1.Handle, SB_VERT, False);
end;
dsbv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программное управление кнопками компонента TMediaPlayer Ednikbod C++ Builder 2 13.02.2017 20:58
ScrollBox ВалекFCRK Общие вопросы Delphi 1 08.06.2011 23:41
ScrollBox SNUPY Помощь студентам 3 22.09.2009 18:51
Управление кнопками со стрелками eks-s Общие вопросы Delphi 6 19.01.2008 02:23
ScrollBox Mickle Помощь студентам 1 31.03.2007 14:10