Substituir ponto por virgula
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
Curtidas 0
Respostas
Rjun
27/02/2006
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;
GOSTEI 0
Raserafim
27/02/2006
é isso mesmo Rjun.
valeu
valeu
GOSTEI 0