Wenn nur ein Feld ausgewählt werden kann, geht auch das:
z.B.: StringGrid1.Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing]; {kein goRangeSelect}
StringGrid1.Cells[StringGrid1.Selection.Left, StringGrid1.Selection.Top]
Delphi-Quellcode:
If StringGrid1.Cells[0, lARow] = MENGE) Then Begin
//nur '.' und '0'-'9' zulassen
If not (Key in ['.', '0'..'9']) Then Key := #0;
//wenn '.' eingegeben und schon vorhanden - '.' nicht zulassen
If (Key := '.') and (Pos(StringGrid1.Cells[StringGrid1.Selection.Left, StringGrid1.Selection.Top]) > 0) Then Key := #0;
End;