Flytte markør til en bestemt celle i stringgrid

Prøvc det her:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 Then
  with StringGrid1 do
  begin
    if Col >= ColCount - 1 then
    begin
      if Row <> RowCount - 1 then
      begin
        Row := Row + 1;
        Col := 1
      end;
    end
    else
      Col := Col + 1;
  end;
end;

Hvis det bare skal være i samme row kan du gøre sådan:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 Then
  if not (StringGrid1.Col >= StringGrid1.ColCount - 1) then
    StringGrid1.Col := 1 + StringGrid1.Col;
end;

Mit løsningsforslag (ikke nødvendigvis bedre end hejhejs):

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    with StringGrid1 do
    begin
      if (Row < RowCount - 1) or (Col < ColCount - 1)  then
      Col := (Col mod (ColCount - FixedCols)) + FixedCols;
      if (Col = FixedCols) and (Row < RowCount - 1) then
        Row := Row + 1;
    end;
end;

Min tager hensyn til, at FixedCols ikke nødvendigvis er lig 1 :-)

Det gjorde den så ikke...
Ny version:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    with StringGrid1 do
    begin
      if (Row < RowCount - 1) or (Col < ColCount - 1)  then
        Col := ((Col + 1) mod (ColCount - FixedCols)) + FixedCols;
      if (Col = FixedCols) and (Row < RowCount - 1) then
        Row := Row + 1;
    end;
end;

Hvad er FixedCols?? :)

Det er de grå 3D-kolonner som man ikke kan vælge :-)
Der er også FixedRows :-)

Nååh.. så lærte jeg jo også noget i det her spm :-)

Den her virker faktisk:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    with StringGrid1 do
    begin
      if (Row < RowCount - 1) or (Col < ColCount - 1)  then
        Col := ((Col - FixedCols + 1) mod (ColCount - FixedCols)) + FixedCols;
      if (Col = FixedCols) and (Row < RowCount - 1) then
        Row := ((Row - FixedRows + 1) mod (RowCount - FixedRows)) + FixedRows;
    end;
end;


Og den her "går i ring":

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    with StringGrid1 do
    begin
      Col := ((Col - FixedCols + 1) mod (ColCount - FixedCols)) + FixedCols;
      if (Col = FixedCols) then
        Row := ((Row - FixedRows + 1) mod (RowCount - FixedRows)) + FixedRows;
    end;
end;