Tutorial Trocando TAB por ENTER

[$cr34m()]

Salve galera, como muitos de nós necessitamos trocar a tecla tab pela tecla enter para pular de campos, segue abaixo um código simples que pode ajudar, basta adiciona-lo ao evento onKeyPress do Edit.

    if (Key = #13) then//se a tecla pressionada for 
        begin 
          Key := #0;//não adicione nada 
          Perform( WM_NEXTDLGCTL, 0, 0 );//e vai para o próximo edit 
        end;  

Simples não é? Entretanto existem desvantagem em se utilizar o código do jeito que ele está. Pois, para cada Edit, MaskEdit, etc... que você tiver em tela, será necessário incluir esse código no OnKeyPress de cada um. Outro ponto é que se seus edit's, mask, etc estiverem dentro de um Panel, ele só ficará pulando entre os campo dentro do Panel. Chato néh...

Porém existe um outra forma, que acredito ser bem melhor(e com certeza é). Basta você modificar pouca coisa no código acima e acrescenta-lo ao onKeyPress do form. Entretanto para poder funcionar é necessário você mudar a propriedade KeyPreview do form para True. Segue abaixo o cód.

    if (Key = #13) and (ActiveControl is TEdit) 
    or (ActiveControl is TComboBox) or (ActiveControl is TMaskEdit) then 
      begin 
        Key := #0; 
        Perform( WM_NEXTDLGCTL, 0, 0 ); 
      end;  

Explicando...

Se a tecla pressiona ENTER for e o ActiveControl for do tipo Tedit, TMaskEdit, etc... ou um deles então não acrescente nada e vá para o próximo controle.


Ps.: Para o cód. acima funcionar não esqueça que é necessário alterar a propriedade KeyPreview do form para True.

Bem até mais...

Forte abraço!