解决方法很多!在你的窗体OnKeyPress事件中，用以下代码： procedureTForm1.FormKeyPress(Sender:TObject;varKey:Char);beginif(Key=vk_Up)or(Key=vk_Down)then//如果按下了上箭头或者下箭头键beginKey:=#0;{吃掉上下箭头键} Perform(WM_NEXTDLGCTL,0,0);{移动到下一个控制}end;end;如果是Delphi2010以上的版本，要进行一下转换： if(Key=Char(vk_Up))or(Key=Char(vk_Down))then//如果按下了上箭头或者下箭头键
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024