回車跳到下一個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