Evitar uso da tecla TAB

[Renanbg 1]

Tem um form com varios edits e queria que o user usasse só o enterTem como evitar o TAB?

[marcio.theis 3]

Veja se este tópico lhe ajuda...

[Renanbg 1]

Pelo que vi trata-se de um componente...Até diz como criar..mas depois disso eu só adiciono no form e o tab para de funcionar?

[marcio.theis 3]

Sim, pelo visto precisa somente colocar no form...

[Renanbg 1]

Testei aqui e n deu...a função dele é apenas fazer o enter funcionaracho q n tem como bloquear o tabo codigo do tab é 9tentei de td q é jeito e n consegui bloquear

[marcio.theis 3]

Bom, tente perguntar sobre o componente no tópico dele...Segundo o que havia informado que funciona sem problemas...

[Rodrigo Miss 1]

Talvez consiga resolver o seu problema apenas definindo a pripriedade TabStop dos seus Edits como False

[Renanbg 1]

Talvez consiga resolver o seu problema apenas definindo a pripriedade TabStop dos seus Edits como False

Fiz isso, só que dessa forma nem o enter funciona mais

 

p usar o enter eu habilito o propriedade keypreview do form e coloco o codigo abaixo no evendo de keypress

 

procedure Tfboleto.FormKeyPress(Sender: TObject; var Key: Char);begin if key=#13 then begin  key := #0;	   Perform(WM_nextdlgctl,0,0); end Else if Key = #27 then   Perform(WM_nextdlgctl,1,0);end;

E agora? como ativar o enter?

[Rodrigo Miss 1]

Vou lhe dizer como resolver isto ....

Abra um novo projeto somente pra testar ....

1º) Coloque 3 Edits no form

2º) Configure os 3 Edits como TabStop:= False;

3º) No OnKeyPress do Edit1 faça o Seguite:

if (Key = #13) then  begin	SelectNext(TWinControl(Sender), True, False);  end;

4º) Agora ligue o evento OnKeyPress dos demais Edits com o OnKeyPress do Edit1 ...

5º) Prontinho!!!! Rode o projeto e teste você mesmo ...

Abraços

[Renanbg 1]

Opa...deu certo...Obrigado