27/02/2006

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

Respostas

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 Citar

18/03/2006

Raserafim

é isso mesmo Rjun.

valeu


Responder Citar