Substituir ponto por virgula

Delphi

27/02/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.


Raserafim

Raserafim

Curtidas 0

Respostas

Rjun

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

Raserafim

27/02/2006

é isso mesmo Rjun.

valeu


GOSTEI 0
POSTAR