Ir para conteúdo
Fórum Script Brasil
  • 0

Enter Como Tab


wavrick

Pergunta

1 resposta a esta questão

Posts Recomendados

  • 0

Olá,

Vou dar o exemplo usando um objeto TEdit que eu nomeei para Edit1 (campo NAME no objecto inspector).

1) Selecione o objeto Edit1;

2) Vá na guia EVENTS no Object Inspector e dê um duplo-clique na caixa de texto da propriedade OnKeyPress;

3) Insira em sua procedure as linhas que estão en negrito na listagem abaixo:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

selectnext(activecontrol, True, True);

key:=#0;

end;

end;

O evento OnKeyPress é disparado sempre que uma tecla qualquer foi pressionada. Logo, se criarmos uma rotina para verificar o momento em que a tecla ENTER for pressionada, poderemos fazer com que o cursor salte para o outro campo. Levando em consideração que o caractere ASCII para a tecla ENTER é representado por #13, lançamos mão da rotina acima.

Dica: entre no site http://www.ceberus.com/lmd/products/index.php3 e faça o download (freeware) do LMD-Tools SE. Este componente VCL tem vários objetos (como por exemplo TEdit) os quais vêm com várias opções que não estão no Delphi padrão. Um dos exemplos é que no TEdit deles já tem uma propriedade TABonENTER, a qual realizada o que vc. quer sem necessitar programar.

Abraços colega.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...