• Registered: 2021-06-15
  • Posts: 46

Topic: Прокрутка 'scrolling'

Добрый день, в ходе тестирования приложения, выяснилось что на формах прокрутка колесом мыши не работает, то есть AutoScroll  указан True, сама прокрутка есть, но двигается только когда указываешь курсором на стрелочки вниз/вверх, а колесом мыши не прокручивается.

Подскажите, как  можно сделать чтобы форма прокручивалась колесом мыши ?

Заранее благодарен, проект прилагаю.

Post's attachments

Attachment icon scrolling'.rar 375.1 kb, 145 downloads since 2022-08-17 

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,590

Re: Прокрутка 'scrolling'

Уточните, прокрутку чего вы хотите добавить на формах?

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2021-06-15
  • Posts: 46

Re: Прокрутка 'scrolling'

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

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,590

Re: Прокрутка 'scrolling'

procedure Form1_OnShow (Sender: string; Action: string);
begin
  Form1.OnMouseWheel := @OnMVDMouseWheel;
end;

procedure OnMVDMouseWheel(Sender: TObject; isShift, isAlt, isCtrl: boolean; WheelDelta: Integer; X, Y: Integer; var Handled: Boolean);
begin
  if WheelDelta > 0 then Form1.VertScrollBar.Position := Form1.VertScrollBar.Position - 4 else Form1.VertScrollBar.Position := Form1.VertScrollBar.Position + 4;
end;
Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2021-06-15
  • Posts: 46

Re: Прокрутка 'scrolling'

ок, спасибо большое