Mudando para o próximo campo automaticamente em Delphi

Boa noite pessoal, hoje postarei como ir para o próximo campo automaticamente em Delphi.

Ex.:

Pode-se comparar o tamanho de um edit com o tamanha máximo no evento OnChange do edit, e ao atingir este tamanho máximo, mude para o próximo campo automaticamente.  Vamos a prática.

procedure TForm1.Edit1Change(Sender : TObject);

begin

with Sender as TEdit do

if Length(Text) >= MaxLength then

Self.Perform(WM_NEXTCTLDLG,0,0);

end;

Espero ter ajudado.

Até o próximo post.

4 respostas para Mudando para o próximo campo automaticamente em Delphi

  1. Wanc disse:

    Seria bom testar o código antes de postar..🙂
    A menos que o seu delphi seja diferente o código que funciona é o abaixo :

        with Sender as TEdit do
        begin
        if Length(Text) >= MaxLength then
           Self.Perform(WM_NEXTDLGCTL,0,0);
        end;
    
    • dungabruxo disse:

      Wanc, obrigado por me alertar deste erro de grafia, que impossibilitará o funcionamento correto da função.
      Posta já atualizado e arrumado.

  2. Clayton disse:

    Muito boa esta dica!!!
    Parabens!!!

  3. […] Referência de um dos lugares que encontrei o código:  https://xucro.wordpress.com/2009/06/03/mudando-para-o-proximo-campo-automaticamente-em-delphi/ […]

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: