首页 > 其他 > 详细

回车跳到下一个EDIT

时间:2018-06-16 23:59:38      阅读:347      评论:0      收藏:0      [点我收藏+]

技术分享图片

1.按下方法
procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
SelectNext(ActiveControl,true,true);
end;

2.按下经过
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
方法1:
if key=#13 then
begin
Perform(cm_dialogkey,vk_tab,0); //焦点按照Taborder的顺序下移
exit;
end;
方法2:
if key = #13 then
begin
key:=#0;
Self.ActiveControl := FindNextControl((Sender as TWinControl),true,true,false);
end;
方法3:
if Key=#13 then
Begin
Key:=#0;
Perform(wm_nextdlgctl,0,0);
End;
end;

PS:Perform是什么?
1:这和sendmessage是一样的,只不过做了个封装而
2:比如响应回车键跳到下一个输入窗口吧,perform(WM_NextDlgCtl,0,0)
3:PerForm是TControl的一个通用方法,目的是绕过Windows本身的消息循环,而将消息直接发给要发的Control

回车跳到下一个EDIT

原文:https://www.cnblogs.com/jijm123/p/9191739.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!