如何在DELPHI中打了‘上下箭头键’,焦点按顺序跳至不同控件上
1个回答
展开全部
解决方法很多!在你的窗体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//如果按下了上箭头或者下箭头键
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
