Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Легко ли найти нужную информацию на сайте?
Очень просто
Нахожу почти сразу
Приходится тщательно покопаться
Почти невозможно
Не нашел (лень разбираться)
Результаты
Другие опросы
Всего голосов:
591
Комментарии:
0
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Синхронизация двух компонентов Scrollbox
Решить задачу помогут обработчики событий OnScroll (в данном примере два компонента ScrollBox (ScrollBar1 и ScrollBar2) расположены на форме TMa
inFo
rm).
Код
procedure TMa
inFo
rm.ScrollBar1Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
ScrollBar2.Position:=ScrollPos;
end;
procedure TMa
inFo
rm.ScrollBar2Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
ScrollBar1.Position := ScrollPos;
end;
Разместил:
admin
| | Прочитано: 25403 | |
Смотрите также связанные новости
07.11.2024 -
Кроссворд на Delphi
07.11.2024 -
Рождение, жизнь и гибель формы
07.11.2024 -
Воспроизводим Flash-файл в своем приложении
07.11.2024 -
Работа с потоками в Delphi
07.11.2024 -
SQL-запросы в Delphi
07.11.2024 -
BlobField как Bitmap
07.11.2024 -
Запись и чтение чисел в BLOB-поле
Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Синхронизация
двух
компонентов
Scrollbox
Решить
задачу
помогут
обработчики
событий
OnScroll
данном
примере
два
компонента
ScrollBox
ScrollBar1
ScrollBar2
расположены
на
форме
TMainForm
Кодprocedure
ScrollBar1Scroll
Sender
TObject
ScrollCode
TScrollCode
ScrollPos
Integer
begin
Position
=ScrollPos
procedure