Hallo,
@kiar >> Glaub ich nicht, mit einer Variable die nicht genutzt wird
@gordon freeman >> der Else-Teil fehlt, so klappt es:
Delphi-Quellcode:
procedure TForm1.StringGrid1KeyPress(Sender:TObject;var Key:Char);
begin
if (key in ['0'..'9']) and (length(StringGrid1.Cells[aktCellX,aktCellY]) = 0) then
begin
StringGrid1.Cells[aktCellX,aktCellY] := '+' + key;
//key := #0; ist doch nur erforderlich wenn Tastendruck aufgehoben werden soll!
end
else
StringGrid1.Cells[aktCellX,aktCellY] := StringGrid1.Cells[aktCellX,aktCellY]+ key;
end;