Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.022 c
1-42413           Andrey196             2001-12-26 21:38  2002.01.14  
Как фон Labela сделать прозрачным?


1-42497           Victor                2001-12-25 19:40  2002.01.14  
ColorDialog


4-42598           Landgraph             2001-11-12 14:22  2002.01.14  
Хватаем обращение


3-42337           victor                2001-12-10 07:47  2002.01.14  
добавление записи с если первичный индекс автоинкрементный


3-42385           NLO                   2001-12-07 12:26  2002.01.14  
start transaction commit в процедуре InterBase 6