请问在输入时按回车键想达到 TAB 键的效果，代码该怎么写？

Question

请问在输入时按回车键想达到 TAB 键的效果，代码该怎么写？

Answer 1

procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
   begin
     if Key = #13 then
     sendmessage(..,WM_KEYPREESS,VK_TAB,..)     
end;
   end;

Answer 2

if Key = #13 then
  Perform(WM_NEXTDLGCTL, 0, 0);

Answer 3

首先你要把form的keypress设为true,然后写入下代码：
procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
      if key=#13 then 
         key:=#0;
         Perform(WM_NEXTDLGCTL, 0, 0);
       end if
end;
         

Answer 4

首先你要把form的keypress设为true,然后写入下代码：
procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
cASE KEY OF
VK_RETURN:VK_TAB;
end;

Answer 5

将窗体的KeyPress事件分配到各个控件