StringGrid单元格通过回车键切换单元格

StringGrid通过回车键切换单元格。

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 

  if Key=#13 then
  begin
    With StringGrid1 do
    begin
     if Col<ColCount-1 then
     begin
        Col:=Col+1;
     end
     else//换行
     if Row<RowCount-1 then
     begin
        Row:=Row+1;
        Col:=0;
     end
     else //回到第一个单元格
     if (Row=RowCount-1) and (Col=ColCount-1) then
     begin
       Row:=0;
       Col:=0;
     end;

    end;
  end;

end;