(Resolvido) Ultimo numero digitado

[seveN]

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

[ZueRa]

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 Abril 7, 2009 por ZueRa

[seveN]

Valeu, usei a 2ª opção e deu certo.

abraços

Pedro