Question

如何在DELPHI中打了‘上下箭头键’,焦点按顺序跳至不同控件上

Answer 1

在你的窗体OnKeyPress事件中，用以下代码：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key=vk_Up) or (Key=vk_Down) then //如果按下了上箭头或者下箭头键
begin
Key := #0; { 吃掉上下箭头键 }
Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }
end;
end;

如果是Delphi 2010以上的版本，要进行一下转换：
if (Key=Char(vk_Up)) or (Key=Char(vk_Down)) then //如果按下了上箭头或者下箭头键

追问

运行了还是不行

追答

贴出你的代码

追问

已经解决了啊，谢谢哈，那怎么让光标移动到上一控件呢