Im StringGrid mit Enter immer ins nächste Feld springen

[Daniel B]

Hallo,

hiermit kann man bei Enter-Druck, immer in die nächste Feld springen, es werden alle der Reihe nach durchgegangen, und zwar immer von links nach rechts und dann immer die nächste Zeile, aus der letzten Zelle wird dann wieder in die erste gesprungen, den Teil kann man aber auch natürlich wieder ausbauen!

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 //Geh wieder an den Anfang des Grids
        Row := 1;
        Col := 1;
      end;
    end;
  end;
end;

Grüsse, Daniel