StringGrid über mehrere Cols springen

[Delphi.Narium]

Nur so als Idee, die Du ggfls. noch anpassen musst:

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    #9 : begin 
           if StringGrid1.Col = 3 then 
             StringGrid1.Col := 7
           else 
           if StringGrid1.Col = 8 then
           begin
             StringGrid1.Col := 3;
             // Hier ist dann noch 'ne Sonderbehandlung der letzten Zeile im StringGrid erforderlich.
             StringGrid1.Row := StringGrid1.Row + 1;
           end;
         end;
  end;
end;

oder

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
  if (aCol = 4) then 
  begin
    StringGrid1.Col := 7;
    CanSelect := False;    
  end else 
  if (aCol = 7) then 
  begin
    StringGrid1.Col := 3;
    // Hier ist dann noch 'ne Sonderbehandlung der letzten Zeile im StringGrid erforderlich.
    StringGrid1.Row := StringGrid1.Row + 1;
    CanSelect := False;    
  end;
end;

(ungetestet hingedaddelt)