来者给分，问题不难！

Question

我想让我的scrollbox通过上下键实现上下移动，但是不行！
代码如下：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
beginif key=VK_DOWN then
begin
scrollbox6.SetFocus;
with scrollbox6 do
begin
showmessage('adfa');
VertScrollBar.Position:=VertScrollBar.Position+200;
scrollbox6.SetFocus;
end;
end;if key=VK_UP then
begin
with scrollbox6 do
begin
VertScrollBar.Position:=VertScrollBar.Position-200;
scrollbox6.SetFocus;
end;
end;
end;

Answer 1

把Form的KeyPreview属性设为True试试！

Answer 2

把Form的KeyPreview属性设为True试过，不行，有没有其他方法

Answer 3

问题我已经解决了，但是这分到底给谁呢？
修改后的代码是：我想让我的scrollbox通过上下键实现上下移动，但是不行！
代码如下：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
form1.KeyPreview:=true;
if key=VK_DOWN then
begin
scrollbox6.SetFocus;
with scrollbox6 do
begin
VertScrollBar.Position:=VertScrollBar.Position+200;
form1.KeyPreview:=true;end;
end;if key=VK_UP then
begin
with scrollbox6 do
begin
VertScrollBar.Position:=VertScrollBar.Position-200;
form1.KeyPreview:=true;end;
end;
end;

Answer 4

form1.KeyPreview:=true;有这一句难道分不是我的吗?呵呵!

Answer 5

\\把Form的KeyPreview属性设为True试过，不行，有没有其他方法
form1.KeyPreview:=true;楼主知道的