Array
(
)

Substituir ponto por virgula

Raserafim
   - 27 fev 2006

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.


Rjun
   - 27 fev 2006

Coloque o seguinte código no evento OnKeyPress do seu edit.

#Código


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = ´,´) then Key := ´.´;
end;



Raserafim
   - 18 mar 2006

é isso mesmo Rjun.

valeu