Как обнаружить, что мышь не движется и кнопка все еще нажата?

Question

В Delphi я добавил компонент прокрутки (ориентированный по вертикали) в правую часть формы.

Я добавил событие OnChange для прокрутки, чтобы изменить вид формы и положение пальца полосы прокрутки, когда пользователь нажимает на кнопку UpArrow или DownArrow с помощью мыши, и это отлично работает.

Но событие OnChange, похоже, срабатывает только при нажатии кнопки мыши на стрелке.

Я заметил, что все элементы управления полосой прокрутки повторяют команду и продолжают прокрутку, пока мышь остается нажатой на стрелке, и я хотел бы реализовать это поведение.

Итак, как я могу легко обнаружить, если пользователь не переместил мышь и продолжает нажимать кнопку мыши, пока мышь остается над стрелкой?

---

Заключение. Как-то что-то в полосе прокрутки моего проекта получилось поврежденным. После того, как я удалил ScrollBar и добавил его снова, проблема исчезла.

Это один из тех сложных вопросов, которые потребовали у меня много времени для решения. Спасибо за вашу помощь. Я закрываю этот вопрос.

Answer 1

Использование OnScroll Событие.

Следующий код добавляет «xxx» к заметке, пока мышь удерживается на кнопке со стрелкой. Испытано с Delphi 6.

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; 
    var ScrollPos: Integer); 
begin 
    Memo1.Lines.Add('xxx'); 
end; 

Answer 2

Обычный способ справиться с автоматической повторяющимся является обеспечение TTimer и проверить в OnTimer() обработчик событий нужно ли действие, которое будет выполняться снова и деактивировать таймер, если нет. Если вам нужен пример кода, я, похоже, помню, что в элементе управления SynEdit использовался аналогичный метод автопрокрутки при перетаскивании.

Answer 3

Если компонент не инкапсулирует поведение, которое вы ищете, и вы не можете легко имитировать поведение с помощью доступных методов, вы должны действительно подклассифицировать самый близкий компонент, который делает большую часть того, что вам нужно, и добавлять недостающие формы поведения ,

Я знаю, что задействована какая-то дополнительная работа, но это действительно лучший способ пойти. Теперь с Delphi я, похоже, помню, что для подклассов компоненты нуждались в дополнительной работе, чтобы быть в состоянии использоваться из IDE для дизайна формы, возможно, это изменилось с версии 7.