Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

KeyDown для ScrollBar a 


Wetnose   (2001-12-27 07:09) [0]

Как сделать так, чтобы ScrollBar реагировал на нажатие клавиш "Вверх"|"Вниз"|"Влево"|"Вправо". Почему при нажатии на эти клавиши на ScrollBar не приходит соответствующее сообщение?



gek   (2001-12-27 07:16) [1]


procedure TFormQrView.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
vk_escape : Close;
vk_Prior : ToolBtnPriorClick(Self);
vk_Next : ToolBtnNextClick(Self);
vk_Home : ToolBtnFirstClick(Self);
vk_End : ToolBtnLastClick(Self);
vk_Up : if VertScrollBar.Position > 10 then
VertScrollBar.Position := VertScrollBar.Position - 10
else
VertScrollBar.Position := 0;
vk_Down : if VertScrollBar.Position < VertScrollBar.Range - 10 then
VertScrollBar.Position := VertScrollBar.Position + 10
else
VertScrollBar.Position := VertScrollBar.Range;
vk_Left : if HorzScrollBar.Position > 10 then
HorzScrollBar.Position := HorzScrollBar.Position - 10
else
HorzScrollBar.Position := 0;
vk_Right : if HorzScrollBar.Position < HorzScrollBar.Range - 10 then
HorzScrollBar.Position := HorzScrollBar.Position + 10
else
HorzScrollBar.Position := HorzScrollBar.Range;
else
exit;
end;
key:=0;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
1-42458           MAN                   2001-12-25 09:24  2002.01.14  
Регистрация сервиса службы


1-42490           Dodge                 2001-12-25 02:33  2002.01.14  
NMHTTP и MEMO


4-42593           Evgeny                2001-11-08 13:34  2002.01.14  
Создание Bitmap в API


1-42443           Пл.                   2001-12-24 17:05  2002.01.14  
Цикл


1-42435           Phisio                2001-12-24 15:01  2002.01.14  
Выбор нескольких объектов