救急!!!!!!!!!

Question

现在我想实现一个功能:就是在一个功能模块里,我在编辑框里输入一段信息后,我按回车键后,光标自
动转到下一个编辑框中,就不需要使用TAB键来实现光标的定位了,谢谢大家:)

Answer 1

窗口KeyPreview设为True;onKeyPress事件if key=#13 then
 begin
  key:=#0;
  perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
 end

Answer 2

if key = #13 then
SetFocus;

Answer 3

procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    Edit2.SetFocus;
end;

Answer 4

if Msg.Message = WM_KEYDOWN then
  begin
    if Msg.wParam = VK_RETURN then
      Keybd_event(VK_TAB, 0, 0, 0);
  end;