如何在DELPHI中打了‘上下箭头键’,焦点按顺序跳至不同控件上
展开全部
解决方法很多!在你的窗体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//如果按下了上箭头或者下箭头键
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询