Avancar automaticamente quando um campo Edit estiver cheio?

Delphi

31/07/2003

Boa Tarde Pessoal!

Alguem sabe qual a propriedade que eu uso para avancar automaticamente quando um campo Edit estiver cheio.
Ex: Um campo Edit de tamanho 8 quando terminar de digitar o ultimo caracter(8) o cursor pule para o proximo campo.

Se alguem souber como fazer, Agradeco.


:wink:


Claudio_f

Claudio_f

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

31/07/2003

Use a função Length que retorna o tamanho do texto

então, coloque isso no evento on change do edit:

if length(Edit.text) >8 then Perform(CM_DIALOGkEY,VK_tab,1);



Perform(CM_DIALOGkEY,VK_tab,1) simula um tab

para aprimorar mais um pouquinho o código faça:

if length(Edit.text) > edit.MaxLength then Perform(CM_DIALOGkEY,VK_tab,1);



GOSTEI 0
Claudio_f

Claudio_f

31/07/2003

Valeu Marcelo funcionou direitinho :D


GOSTEI 0
POSTAR