Delphi dicas

Tab com enter

Tab com Enter (No evento On KeyPress)



Begin

        If Key = #13 then //Se o comando for igual a enter

        Begin

                Key := #0;

                Perform (wm_nextdlgctl, 0, 0); //Para pular de campo em campo

        End;

End.



Obs: Na Propriedade Tab Order dos campos, você coloca a ordem que



o Tab vai percorrer pelos campos no formulário quando o Enter for



pressionado.E na Propriedade  KeyPreview do formulário, você deve



deixar como True para ativar o comando acima.