Problema con excepción

[[nlsgarcia]]

franroju,

Esta es una variante que permite al Control TEdit ingresar números, validar que la coma no sea colocada en la posición 1 o más de una vez y usar la tecla de retroceso (#8):

Código Delphi [-]
procedure TForm1.CheckNumberKey(Sender: TObject; var Key: Char);
begin

   If (Length(Edit1.Text) = 0) and (Key = ',') then
   begin
      Key := Chr(0);
      exit;
   end;

   if (Pos(',',Edit1.Text) <> 0) and (Key = ',') then
   begin
      Key := Chr(0);
      exit;
   end;

   // Solo permite ingresar caracteres númericos, coma y tecla de retroceso.
   If not (Key in ['0'..'9',',',#8]) then Key := Chr(0);

end;

Espero sea útil

Nelson.