回车跳到下一个EDIT
Posted 癫狂编程
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了回车跳到下一个EDIT相关的知识，希望对你有一定的参考价值。
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的主要内容，如果未能解决你的问题，请参考以下文章
怎样实现在文本框中按回车键，光标跳到下一个文本框，而不是提交？