Fórum Auto preenchimento de campo de texto #573955

18/01/2017

0

Delphi

Ola,
Como faço para auto preencher um campo em delhpi?
Por exemplo, digito o numero 1 e auto preencher com 0 (00001)

Obrigado
Nomad

Nomad

Responder

Post mais votado

18/01/2017

Opa! Dê uma olhada nesse post aqui do fórum mesmo

https://www.devmedia.com.br/forum/completar-campo-com-zero-a-esquerda/151789

Jones Granatyr

Jones Granatyr
Responder

Gostei + 1

Mais Posts

18/01/2017

Nomad

Opa! Dê uma olhada nesse post aqui do fórum mesmo

https://www.devmedia.com.br/forum/completar-campo-com-zero-a-esquerda/151789


Isso mesmo cara, deu certinho... Muito obrigado.

Mas acontece uma situação... Se eu clicar no campo novamente, ele fica somente com o numero que informei, apagando os zeros.. Se saio dele, preenche novamente. Sabe oq pode ser?
Responder

Gostei + 0

19/01/2017

Nomad

Opa! Dê uma olhada nesse post aqui do fórum mesmo

https://www.devmedia.com.br/forum/completar-campo-com-zero-a-esquerda/151789


Isso mesmo cara, deu certinho... Muito obrigado.

Mas acontece uma situação... Se eu clicar no campo novamente, ele fica somente com o numero que informei, apagando os zeros.. Se saio dele, preenche novamente. Sabe oq pode ser?


Consegui corrigir informando no OnClick também... Obrigado
Responder

Gostei + 0

27/01/2017

Nomad

Esta situação do OnClick não estou utilizando..
Na aplicação tenho o botão incluir que habilita todos os campos para o preenchimento, ao clicar habilita os campos e aparece o botão cancelar. (botão que desabilita os campos novamente).. No OnExit informei 
begin
    if (DBEcod.Text = '') then
      begin
      MessageDlg('Código Inválido',
        mtError, [mbOK], 0);
          DBEcod.SetFocus;
            //Abort;
            end

    else DBEcod.Text := FormatFloat('00000', StrtoInt(DBEcod.Text));
end;


Mas quando clico em Cancelar também ocorre a mensagem de "código inválido".. Como faço para não aparecer a mensagem ao clicar em Cancelar?

Obrigado
Responder

Gostei + 0

28/01/2017

Nomad

Esta situação do OnClick não estou utilizando..
Na aplicação tenho o botão incluir que habilita todos os campos para o preenchimento, ao clicar habilita os campos e aparece o botão cancelar. (botão que desabilita os campos novamente).. No OnExit informei 
begin
    if (DBEcod.Text = '') then
      begin
      MessageDlg('Código Inválido',
        mtError, [mbOK], 0);
          DBEcod.SetFocus;
            //Abort;
            end

    else DBEcod.Text := FormatFloat('00000', StrtoInt(DBEcod.Text));
end;


Mas quando clico em Cancelar também ocorre a mensagem de "código inválido".. Como faço para não aparecer a mensagem ao clicar em Cancelar?

Obrigado


Alguém??
Responder

Gostei + 0

29/01/2017

Renato Rubinho

Provavelmente você está focado no campo DBEcod. Quando clica no botão cancelar, é focado nele, acionando o onExit do DBEcod.

begin
// adicione este código
if Cancelar.Focused then
begin
  exit;
end;
//

if (DBEcod.Text = '') then
begin
MessageDlg('Código Inválido',
mtError, [mbOK], 0);
DBEcod.SetFocus;
//Abort;
end

else DBEcod.Text := FormatFloat('00000', StrtoInt(DBEcod.Text));
end;


Abraççç,
Renato
https://br.linkedin.com/in/renatorubinho
Responder

Gostei + 1

30/01/2017

Nomad

Provavelmente você está focado no campo DBEcod. Quando clica no botão cancelar, é focado nele, acionando o onExit do DBEcod.

begin
// adicione este código
if Cancelar.Focused then
begin
  exit;
end;
//

if (DBEcod.Text = '') then
begin
MessageDlg('Código Inválido',
mtError, [mbOK], 0);
DBEcod.SetFocus;
//Abort;
end

else DBEcod.Text := FormatFloat('00000', StrtoInt(DBEcod.Text));
end;


Abraççç,
Renato
https://br.linkedin.com/in/renatorubinho


Cara, era isso mesmo.. Tava quebrando a cabeça aqui hahaha.
Deu certo.. Muito obrigado pela ajuda!
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar