Vielen Dank Faux, es klappt, allerdings nur bis Zeile 6, siehe Bild, möchte es aber bis letzte Zeile (40), bzw. flexibel bis letzte Zeile. (siehe Bild=
Hier der Code (ich hatte bei KeyDown schon programmiert, dass er beim Editieren automatisch in die nächste Zelle geht...:
Delphi-Quellcode:
procedure Tlote.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Value, Code, i: Integer;
begin
if StringGrid1.EditorMode then begin //wenn sich die Zelle im EditModus befindet
if (Key = VK_RIGHT) and //und die Pfeil-nach-rechts-Taste gedrückt wurde
(GetCaretPosition(StringGrid1) = Length(TMyGrid(StringGrid1).InplaceEditor.EditText)) and //und sich der Caret am Ende des Zelltextes befindet
(StringGrid1.Col < StringGrid1.ColCount - 1) then begin //und die aktive Zelle sich nicht in der letzten Spalte befindet
StringGrid1.Col := StringGrid1.Col + 1; //dann springe eine Spalte weiter nach rechts
end
else
if (Key = VK_LEFT) and //und die Pfeil-nach-links-Taste gedrückt wurde
(GetCaretPosition(StringGrid1) = 0) and //und sich der Caret am Anfang des Zelltextes befindet
(StringGrid1.Col > StringGrid1.FixedCols) then begin //und die aktive Zelle sich nicht in der ersten Spalte nach den FixedCols befindet
StringGrid1.Col := StringGrid1.Col - 1; //dann springe eine Spalte zurück nach links
end;
end;
if (Key = 13) and (StringGrid1.Col = 0) and (StringGrid1.Row = 1) then
begin
Val(StringGrid1.Cells[0, 1], Value, Code);
if Code = 0 then
begin
for i := 2 to StringGrid1.ColCount - 1 do
begin
StringGrid1.Cells[0, i] := IntToStr(Value + i - 1);
end;
end;
end;
end;
Kann man auch das so machen, dass wenn ich weiter unten, z.B. in Zeile 10 (spalte 0) einen Wert eingebe, die automtatische Nummerierung erst ab Zeile 11 anfängt, bis letzte Zeile, ohne die Zeilen 1-9 zu löschen??