Ver Mensaje Individual
  #3  
Antiguo 03-02-2020
amadis amadis is offline
Miembro
 
Registrado: may 2005
Ubicación: San José, Colón, Entre Ríos, Argentina
Posts: 315
Reputación: 20
amadis Va por buen camino
Normalmente en VCL lo hacía en el evento ONKEYPRESS, de los TEdit que deben trabajar con numeros enteros.

Lo hacía poniendo

Código Delphi [-]
if key = '.' then key := ',';

En Firemonkey no existe más el Keypress, porque por razones entendibles no se apretan teclas ya que son virtuales, en su lugar podemos usar onkeyDown, y onkeyup.

Por eso pretendía en el evento Onkeydown cambiar el valos de key

Código Delphi [-]
procedure EditKeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
if key = vkPeriod  then  key := vkComma;
end;

la variable key no debe ser solo lectura porque no me dio error al asignarla.

Por el momento lo tengo solucionado, leyendo el string antes de usarlo. Lo proceso, cambio el punto por la coma. Y luego hago las operaciones necesarias.

Pero la idea era en tiempo real que al presionar PUNTO, salga COMA.
Responder Con Cita