Форум: "Основная";
Поиск по всему сайту: 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.014 c
1-42431           -=Phantom=-           2001-12-23 22:28  2002.01.14  
Проблема следующая:


6-42522           Polevi                2001-10-17 11:45  2002.01.14  
С мольбой о помощи взываю!!!


4-42610           -=CrazyFish=-         2001-11-13 21:30  2002.01.14  
перерисовка ScrollBar


1-42432           wHammer               2001-12-22 10:04  2002.01.14  
Как получить псевдографику в Win?


7-42578           Lena                  2001-10-01 11:00  2002.01.14  
Помогите