Este comando passa o foco para o próximo controle.
1 2 | { Este comando tem o mesmo efeito do tab } Perform(WM_NEXTDLGCTL, 0, 0); |
Então para simular o efeito do tab com o entrer,
deve ser feito dois passos:
Passe a propriedade KeyPreview do formulário para True.
Depois siga exemplo do códido a ser inserido no evento OnKeyDown do formulário.
1 2 3 4 5 6 | { Exemplo de uso, substituindo o tab pelo enter } procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then Perform(WM_NEXTDLGCTL, 0, 0); end; |
Como alternativa, existem componentes que fazem este tipo de tarefa, como por exemplo,
o componente JvEnterAsTab da biblioteca do jedi, outro componente é o ACBrEnterTab
da biblioteca do ACBr.
Ambos são open source.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
