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;

KeyDown для ScrollBar a Найти похожие ветки