Auto preenchimento de campo de texto

Delphi

18/01/2017

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

Curtidas 0

Melhor post

Jones Granatyr

Jones Granatyr

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
GOSTEI 1

Mais Respostas

Nomad

Nomad

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


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?
GOSTEI 0
Nomad

Nomad

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


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
GOSTEI 0
Nomad

Nomad

18/01/2017

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
GOSTEI 0
Nomad

Nomad

18/01/2017

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??
GOSTEI 0
Renato Rubinho

Renato Rubinho

18/01/2017

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
GOSTEI 1
Nomad

Nomad

18/01/2017

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!
GOSTEI 0
POSTAR