automatische Numerierung in Stringgrid

[faux]

Hallo!

Zitat von tom_po:

(fixedRows=0, fixedCols=0)

Also im Screenshot ist aber FixedRows = 1 zu erkennen. - egal.

Ich habs so gelöst:

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Value, Code, i: Integer;
begin
  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.RowCount - 1 do
      begin
        StringGrid1.Cells[0, i] := IntToStr(Value + i - 1);
      end;
    end;
  end;
end;

Habe leider kein besseres Event gefunen. Aber das ist ja das geringste Problem, würde ich mal sagen.
EDIT: Sry, ColCount und RowCount vertauscht.

Grüße
Faux