Edit

[Lívio Bruno 0]

Olá pessoal. Se alguém puder me dar uma força, preciso de um código que a medida que eu for digitando em um edit, na 4ª posição apareça automaticamente um caracter, mas podendo também continuar digitando normalmente. exemplo: 1234-5.

Obrigado.

[Chrnos 30]

Você pode programar algo para isso no onkeypress, testando o length do campo para saber quando jogar o valor que quer por exemplo... mas qual é a sua dúvida, onde está o código do que já tentou fazer?

 

[]'s

[Lívio Bruno 0]

Você pode programar algo para isso no onkeypress, testando o length do campo para saber quando jogar o valor que quer por exemplo... mas qual é a sua dúvida, onde está o código do que já tentou fazer?

 

[]'s

 

 

Obrigado pela dica!

 

O código abaixo era o eu queria:

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

   if Key = #8 then
      exit;

   if Length(Edit1.Text) = 4 then
      begin
         Edit1.Text := Edit1.Text + '-';
         Edit1.Selstart := Length(Edit1.text);
      end;

end;

[Chrnos 30]

Não seria mais prático para você usar um TMaskEdit neste tipo de situação? Nele você poderia definir a máscara que precisa usar e não correria o risco do usuário simplesmente apagar o traço após digitar um quinto número por exemplo...

 

[]'s

[Lívio Bruno 0]

Não seria mais prático para você usar um TMaskEdit neste tipo de situação? Nele você poderia definir a máscara que precisa usar e não correria o risco do usuário simplesmente apagar o traço após digitar um quinto número por exemplo...

 

[]'s

 

 

Beleza, bem lembrado!

[Chrnos 30]

Estamos ai pra ajudar... dúvida resolvida então?

 

[]'s