Delphi-Quellcode:
If StringGrid1.Cells[0, lARow] = MENGE) Then Begin
//nur 0-9 und . zulassen alle anderen nicht
{Case Key of
#33..#45: Key := #0;
#47: Key := #0;
#58..#255: key := #0;
End;}
//nur 0-9 und . zulassen
If not (Key in ['.', '0'..'9']) Then Key := #0;
//wenn '.' eingegeben und schon vorhanden ist, nicht zulassen
If (Key := '.') and (Pos(StringGrid1.Cells[lACol, lARow]) > 0) Then Key := #0;
{ StringGrid1.Cells[lACol, lARow] = aktiveZelle (die in der gerade eingebgeben wird) }
End;
Ich weis jetzt leider nicht wie man die aktive Zelle abfragt.
(onKeyPress liefert diese ja nicht)