Como substituir o tab pelo entrer? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

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);

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.

 

Facebook Comments

Posts Relacionados

  • Administrador
  • 569 views
  • 0 comentários
  • 21 de março de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados