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;