用ENTER键模拟TAB键,实现焦点在每个控件里逐一跳转

将主窗体的keypreview置为true,设好各输入框的TAB键次序

procedure   Tform1.FormKeyPress(Sender:   TObject;   var   Key:   Char);
begin
    if   Key   =   #13   then
    begin
        Key   :=   #0;
        Keybd_event(VK_TAB,   0,   0,   0);
    end;
end;