在你的窗体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 //如果按下了上箭头或者下箭头键
© 版权声明
文章版权归作者所有，未经允许请勿转载。
