Hola, he buscado en los diferentes hilos que hay pero no he encontrado solución a mi problema.
Mi problema es que necesito que al pulsar tanto la coma como el punto, lo coja como separador decimal. He probado varios ejemplos en el Keypress que a continuación os pongo, pero el punto me lo ignora. Imagino que tendré que modificar algo de la coma decimal o algo de eso, pero no lo domino demasiado.
Estos son los casos que he probado:
Código Delphi
[-]
procedure EditKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if ( StrScan('0123456789,.'+chr(7)+chr(8), Key) = nil ) then Key := #0;
end;
Y por otro lado:
Código Delphi
[-]
procedure EditKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if not (key in ['0','1','2','3','4','5','6','7','8','9',',','.', #7, #8, #13]) then
begin
Key := #0;
Beep;
end;
end;
Agradezco vuestra ayuda de antemano!