Código Delphi [-] procedure TForm1.NumericKeyPress(Sender: TObject; var Key: Char); var lExTemp: Extended; begin if not TryStrToFloat(TEdit(Sender).Text+Key, lExTemp) then Key := #0; end;
procedure TForm1.NumericKeyPress(Sender: TObject; var Key: Char); var lExTemp: Extended; begin if not TryStrToFloat(TEdit(Sender).Text+Key, lExTemp) then Key := #0; end;