• 0
Sign in to follow this  
wavrick

Enter Como Tab

Question

Olá gente,

Bem, não sei se vocês podem me ajudar mais eu gostaria de sabe como eu faça para em um determinda form (não é na aplicação toda) eu trocar o tab por enter, ex: eu ao invés de pular um campo usando o tab eu quero usar o enter, valeu gente.

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 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.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this