Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Tab как Enter в TStringGrid

01.01.2007
Данный код переводит ввод на другую колонку. При достижении конца колонок, ввод перемещается на следующую строку. При достижении самого конца сетки, управление перемещается в ее самое начало - естественно, вы можете изменить это поведение, и передавать управление в этом случае другому элементу управления.

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 
if Key = #13 then
   
with StringGrid1 do
     
if Col < ColCount - 1 then {следующая колонка!}
       
Col := Col + 1
     
else if Row < RowCount - 1 then
     
begin {следующая строка!}
       
Row := Row + 1;
       
Col := 1;
     
end
     
else
     
begin {Конец сетки! - Снова перемещаемся наверх!}
       
Row := 1;
       
Col := 1;
       
{или вы можете передать управление другому элементу управления}
     
end;
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0


procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
 
begin
   
if Key = #13 then
     
with StringGrid1 do
       
if Col then {next column}
         
Col := Col + 1
     
else if Row then
     
begin {next Row}
       
Row := Row + 1;
       
Col := 1;
     
end
     
else
     
begin {End of Grid- Go to Top again}
       
Row := 1;
       
Col := 1;
     
end;
 
end;

Взято с сайта: https://www.swissdelphicenter.ch