如何做到 按 enter 鍵讓 form 上的 Tedit ,TmaskEdit 焦點可以移動

Question

在edit的keypress里写
if key=#13 then postmessage(edit1.handle,wm_keydown,vk_tab,0);

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then postmessage(handle,wm_keydown,vk_tab,0);end;end.

Answer 2

还应该加上
设置form1.Keypreview:=true;