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

(Resolvido) Ultimo numero digitado


seveN

Pergunta

Alguém sabe como fazer para que ao digitar o ultimo registro no campo (no caso são 13 numeros) abra-se outro formulário.

Estou fazendo uma aplicação com código de barra e falta o código que ao digitar o 13º numero abra-se o form correspondente.

A parte do abrir o outro form com os dados já está pronto, falta substituir o onexit por ao digitar 13º numero para que seja automático.

Pedro

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Olá amigo boa noite.

Acho que possa fazer assim:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if (Length(Edit1.Text) > 11) then
      begin
        //abre o form
        ShowMessage('Você digitou 13 números!');
      end;
  end;
Vide que este procedimento foi testado no evento onKeyPress do Edit. Só adaptar ao seu uso. Só para ficar um pouco melhor, faça uma condição para se certificar que o usuário irá digitar apenas números. Dessa forma:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if not (key in ['0'..'9', #8]) then
      begin
        Application.MessageBox('Por favor digite apenas números!','titulo',MB_ok +
        MB_defbutton1 + MB_iconerror);
        Abort;
      end
    else
      begin
        if (Length(Edit1.Text) > 11) then
          begin
            //abre o form
            ShowMessage('Você digitou 13 números!');
          end;
      end;
  end;

Recomendo mais assim do que na forma anterior que lhe apresentei.

Qualquer coisa posta aí.

Grande abraço.

Editado por ZueRa
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...