Formato numeros reales

[ecfisa]

Hola.

También podrías usar esto en los eventos OnEnter y OnExit de los edits.

Código Delphi [-]
procedure TForm1.EditEnter(Sender: TObject);
begin
  Decimalseparator:= '.';
end;

procedure TForm1.EditExit(Sender: TObject);
begin
  Decimalseparator:= ',';
end;

Pero creo que la opción más simple es asociár esto a los eventos OnKeyPress de los edits:

Código Delphi [-]
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
 if Key in ['.',','] then
   Key:= Decimalseparator;
end;

Saludos.