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.