Комбинирование нескольких событий на форме. Как это делается?

@Insomnia4ever · Регистрация: 22.07.2017

Студворк — интернет-сервис помощи студентам

Допустим, я хочу, чтобы действие при изменении положения скроллбара (OnChange) происходило только тогда, когда на ползунке зажат курсор, а когда положение изменяется программно, то операции, заложенные внутри условия изменения положения, не выполнялись. Каким образом можно комбинировать условия из обработчика событий?

@volvo · 31.05.2018, 20:22

OnChange срабатывает и при действии пользователя и при программном изменении позиции. OnScroll - только при действии пользователя, при программном изменении это событие не срабатывает. Как пример:

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender, TScrollCode ScrollCode,
          int &ScrollPos)
{
    if (ScrollCode != scEndScroll)
    {
        Memo1->Lines->Add("Scrolled to " + IntToStr(ScrollPos));
    }
}

, попробуй изменить программно, ничего не произойдет. А при перетягивании ползунка мышой - будут сообщения в Memo

@Insomnia4ever · 31.05.2018, 20:28 **[ТС]**

volvo, благодарю, это помогло. А есть ли возможность увеличить расстояние от курсора до скроллбара, на котором при зажатой мыши ползунок ещё откликается на движения мыши? Если зажать ползунок и начать им двигать и отвести мышь на небольшое расстояние, то в этом случае скроллбар ещё реагирует, но если увести мышь достаточно далеко, то скроллбар перестаёт реагировать и ползунок уходит в изначальное положение. Так вот, это предельное расстояние реагирования скроллбара на движение мыши задаётся где-либо?

@volvo · 31.05.2018, 20:44

Скорее всего нет. Это было задумано, как способ вернуться к начальному значению, если пользователь начал тащить ползунок, и потом вдруг внезапно передумал. Тогда достаточно не отпуская кнопки сместить мышь вверх/вниз (или влево/вправо, в зависимости от ориентации полосы прокрутки) достаточно далеко, и прокручивание "отменится" - ползунок встанет туда, где был перед началом движения мыши. Я даже не помню, чтобы где-то была константа, которая содержит величину этого смещения, не то что ее изменение. Скорее всего это захардкодено в Windows.

@Insomnia4ever · 31.05.2018, 20:50 **[ТС]**

volvo, я понял. Спасибо.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Insomnia4ever 1 / 1 / 1 Регистрация: 22.07.2017 Сообщений: 121

	RAD 2009-XE3 Комбинирование нескольких событий на форме. Как это делается? 31.05.2018, 20:11. Показов 1119. Ответов 4 Метки нет (Все метки) Допустим, я хочу, чтобы действие при изменении положения скроллбара (OnChange) происходило только тогда, когда на ползунке зажат курсор, а когда положение изменяется программно, то операции, заложенные внутри условия изменения положения, не выполнялись. Каким образом можно комбинировать условия из обработчика событий? 0

@Insomnia4ever 1 / 1 / 1 Регистрация: 22.07.2017 Сообщений: 121
	31.05.2018, 20:28 [ТС]
	volvo, благодарю, это помогло. А есть ли возможность увеличить расстояние от курсора до скроллбара, на котором при зажатой мыши ползунок ещё откликается на движения мыши? Если зажать ползунок и начать им двигать и отвести мышь на небольшое расстояние, то в этом случае скроллбар ещё реагирует, но если увести мышь достаточно далеко, то скроллбар перестаёт реагировать и ползунок уходит в изначальное положение. Так вот, это предельное расстояние реагирования скроллбара на движение мыши задаётся где-либо? 0

@volvo Супер-модератор 33374 / 21499 / 8235 Регистрация: 22.10.2011 Сообщений: 36,894 Записей в блоге: 12
	31.05.2018, 20:44
	Скорее всего нет. Это было задумано, как способ вернуться к начальному значению, если пользователь начал тащить ползунок, и потом вдруг внезапно передумал. Тогда достаточно не отпуская кнопки сместить мышь вверх/вниз (или влево/вправо, в зависимости от ориентации полосы прокрутки) достаточно далеко, и прокручивание "отменится" - ползунок встанет туда, где был перед началом движения мыши. Я даже не помню, чтобы где-то была константа, которая содержит величину этого смещения, не то что ее изменение. Скорее всего это захардкодено в Windows. 0

@Insomnia4ever 1 / 1 / 1 Регистрация: 22.07.2017 Сообщений: 121
	31.05.2018, 20:50 [ТС]
	volvo, я понял. Спасибо. 0

Комбинирование нескольких событий на форме. Как это делается?

Решение