Código Delphi [-] procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (key<>#13) and (not (key in ['0'..'9'])) then key:=#0; end;
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (key<>#13) and (not (key in ['0'..'9'])) then key:=#0; end;