Прокрутка TScrollBox с помощью стрелок вверх и внизDelphi , Компоненты и Классы , TScrollBoxПрокрутка TScrollBox с помощью стрелок вверх и вниз
Оформил: DeeCo 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; Статья Прокрутка TScrollBox с помощью стрелок вверх и вниз раздела Компоненты и Классы TScrollBox может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TScrollBox ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |