Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Как вы узнали о нашем сайте?
От друга, знакомого
Из печатных источников
Из поисковой машины
По ссылке с другого сайта
Случайно
Не знаю
Результаты
Другие опросы
Всего голосов:
1031
Комментарии:
4
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Синхронизация двух компонентов 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
| | Прочитано: 25513 | |
Смотрите также связанные новости
14.11.2024 -
Кроссворд на Delphi
14.11.2024 -
Рождение, жизнь и гибель формы
14.11.2024 -
Воспроизводим Flash-файл в своем приложении
14.11.2024 -
Работа с потоками в Delphi
14.11.2024 -
SQL-запросы в Delphi
14.11.2024 -
BlobField как Bitmap
14.11.2024 -
Запись и чтение чисел в BLOB-поле
Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Синхронизация
двух
компонентов
Scrollbox
Решить
задачу
помогут
обработчики
событий
OnScroll
данном
примере
два
компонента
ScrollBox
ScrollBar1
ScrollBar2
расположены
на
форме
TMainForm
Кодprocedure
ScrollBar1Scroll
Sender
TObject
ScrollCode
TScrollCode
ScrollPos
Integer
begin
Position
=ScrollPos
procedure