Im StringGrid mit Enter immer ins nächste Feld springen

[Hansa]

Hi,

soweit, so gut, aber für Anfänger: um etwas eingeben zu können, muß im Objektinspektor die Option "goEditing" auf true gesetzt werden.

Desweiteren ist es manchmal gut, das Grid vergrößern zu können, z.B. wenn man noch nicht weiß, wieviele Eingaben überhaupt gemacht werden. Das geht dann so (*** beachten) :

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    with StringGrid1 do
    begin
      if Col < ColCount -1 then //Nächste Spalte
        Col := Col +1
      else if Row < RowCount -1 then
      begin //Nächste Zeile
        Row := Row +1;
        Col := 1;
      end else
      begin                        //Zeile am Ende des Grids einfügen
        RowCount := RowCount + 1;  // *** statt Row := 1 1 Zeile anfügen
        Row := RowCount -1;        // *** Cursor in die neue Zeile
        Col := 1;
      end;
    end;
  end
end;