Código Delphi [-] procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if (StringGrid1.Col = n) and not (Key in ['0'..'9']) then Key := #0; end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if (StringGrid1.Col = n) and not (Key in ['0'..'9']) then Key := #0; end;