Substituir ponto por virgula
27/02/2006
0
prociso que no momento que que o usuário esteja digitando, ao pressionar a tecla ponto, automaticamente e instantaneamente, o ponto seja substituído por uma vírgula.
Raserafim
Curtir tópico
+ 0
Responder
Posts
27/02/2006
Rjun
Coloque o seguinte código no evento OnKeyPress do seu edit.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Key = ´,´) then Key := ´.´; end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)