有关StringGrid的问题

Question

在窗口中加一个StringGrid, Option中goEditing设True,写一个KeyDown事件如下：
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key = vk_return then
     with stringGrid1 do
     begin
          if Col = (ColCount - FixedCols) then
              begin
                   if Row < (RowCount - FixedRows) then
                     begin
                          Row := Row + 1;
                          Col := 1;
                     end;
              end
          else
              begin
                   Col := Col + 1;
              end;
     end;
end;

Answer 1

OnKeyDown:
if (StringGrid.Col <> StrnigGrid.ColCount-1) then
  StringGrid.Col := StrnigGrid.Col +1
else if (StringGrid.Row <> StrnigGrid.RowCount-1) then 
begin
  StringGrid.Col := 0;
  StringGrid.Row := StringGrid.Row +1;
end;

Answer 2

响应KeyUp事件，然后设置
StringGrid.Row:=n;
//stringGrid.SetFocus;