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