Como substituir o tab pelo entrer?
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); |
{ 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; |
{ 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.
-
InfusTec
-
4.508 views
- 0 comentários
- 21 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo