Delphi World - Прокрутка TScrollBox с помощью стрелок вверх и вниз
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Прокрутка TScrollBox с помощью стрелок вверх и вниз

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

private
   procedure CMDialogKey(var Msg: TCMDialogKey); message CM_DIALOGKEY;
 end;


 implementation

 procedure TForm1.CMDialogkey;
 begin
   with Scrollbox1.VertScrollBar do
   begin
     case Msg.CharCode of
       // Delphi takes care of Position < 0 or Position > Range 
      VK_DWON: Position := Position + Increment; // down arrow key 
      VK_Up: Position   := Position - Increment; // up arrow key 
      else
         inherited;
     end;
   end;
 end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования