Форум: "Основная";
Поиск по всему сайту: 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.031 c
1-42491           Alex_Sudakov          2001-12-25 15:46  2002.01.14  
Напомните


1-42409           Елена                 2001-12-24 00:40  2002.01.14  
Help!


3-42370           Марина                2001-12-11 10:20  2002.01.14  
Как использовать ADO для таблиц *.dbf


1-42506           SlavaNew              2001-12-26 07:28  2002.01.14  
Pointer: Как работает?


4-42592           Evgeny                2001-11-02 13:04  2002.01.14  
GrayScale