Как перемещать скроллеры со свойством Visible:= False у компонента TScrollBox?

[Vova777]

Код, который перемещает скроллеры компонента TScrollBox нажатием клавиш со стрелками на клавиатуре:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RIGHT then
    ScrollBox1.HorzScrollBar.Position:= ScrollBox1.HorzScrollBar.Position + 20;
  if Key = VK_LEFT then
    ScrollBox1.HorzScrollBar.Position:= ScrollBox1.HorzScrollBar.Position - 20;
  if Key = VK_UP then
    ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position - 20;
  if Key = VK_DOWN then
    ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position + 20;
end;

Почему когда я ставлю свойства скроллеров Visible:= False, он не работает?
Как сделать такое перемещение?

[Sibedir]

Сообщение от unit Controls;

procedure TWinControl.ScrollBy(DeltaX, DeltaY: Integer);

__________________________

[Vova777]

Сообщение от Sibedir

__________________________

__________

И ЧЕ?

[GVA]

Давай подумаем логически если скролбар не видать то он и активным быть не может, в этом случае тебе приязаться к форме нужно к примеру onKeyDown например!

[Vova777]

Сообщение от GVA

Давай подумаем логически если скролбар не видать то он и активным быть не может, в этом случае тебе приязаться к форме нужно к примеру onKeyDown например!

Я обрабатываю этот код в

procedure TForm1.FormKeyDown

вы не это имели ввиду?

[GVA]

Совершенно верно! Да действительно проглядел я этот момент, тогда вопрос другой зачем он тогда там нужен если его не видно! - расскажи секрет!

[Vova777]

Сообщение от GVA

Совершенно верно! Да действительно проглядел я этот момент, тогда вопрос другой зачем он тогда там нужен если его не видно! - расскажи секрет!

долго это все рассказывать, суть в том, что нужно перемещать картинку внутри скролбокса с помощью кнопок клавиатуры, а скроллеров не должно быть видно.

[Sibedir]

Давай подумаем логически ©
Я привел описание метода ScrollBy
Наверное нужно его использовать для решения вашей задачи

[Vova777]

Сообщение от Sibedir

Давай подумаем логически ©
Я привел описание метода ScrollBy
Наверное нужно его использовать для решения вашей задачи

пример кода хотел бы увидеть я

[Sibedir]

Напиши и увидешь if Key = VK_RIGHT then ScrollBox1.ScrollBy(20, 0);