Posicionar virgula ao digitar

Question

ola galera� o seguinte, tenho um campo do tipo  numeric e gostaria de ao digitar em um DBEdit ele j� come�asse com uma � , � (virgula) .. dai ao digitar a virgula vai se possicionando conforme o valor...

Oberdan · Answer

Olhe, este c�digo ir� inserir a virgula no lugar correto, quando o usu�rio SAIR (evento onExit) do campo, evitando assim que seja necess�rio digitar a virgula.

If Length(Edit1.Text) > 2 then
Edit1.Text := Copy(Edit1.Text,1,Length(Edit1.Text)-2) + �,� + Copy(Edit1.Text,Length(Edit1.Text)-1,2)
Else
Edit1.Text := �0,� + Edit1.Text;

[]
Oberdan

Fer · Answer

E s o usu�rio digitar � , �  virgula? Ele colocar� duas virgulas?valeu...

Vmotta · Answer

ola.tenta utilizar esses comandos:no evento onexit do edit digite :edit1.text := FormatFloat(�#,,0.00�, StrToFloat(Edit1.text));{assim, se o usuario digitar:123456 ser� exibido 123.456,00 123,45 ser� exibido 1.234,56e se a mascara for �0.0� ser� exibidoser� exibido 123456,00 e 1234,56 respectivamente}espero ter ajudadoqq d�vida entre em contatoVitor Hugo <vmotta@eep.br>...

Hacson Menezes · Answer

Aproveitando a d�vida do nosso colega, teria como fazer isso sem ser no evento OnExit?  Valeu a todos...

Vmotta · Answer

acho que n�o � exatamente essa resposta que procura, pois n�o entendi muito bem a sua d�vida, qq coisa se nao for isso que queira saber, me de um exemplo do que gostaria de fazer ok? Mas vc pode usar esses comandos em qualquer evento, como no onClick de um botao ou qualquer outro evento ...

T+
Vitor Hugo

F�rum Posicionar virgula ao digitar #164074