Delphi：在字符串网格和标签

Question

我在Form中有许多TStringGrid组件。我想在使用tab的StringGrids之间移动。

问题在于，当goTabs被激活时，它会很好地在StringGrid的单元格之间移动，但是一旦选择了右下角的单元格，下一个选项卡命中将选择同一个StringGrid的左上角单元格。

我该如何覆盖？

感谢。

Answer 1

那样的东西！谢谢大家。

procedure TfrChild.Grd0KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_TAB) and (Grd0.row = Grd0.RowCount - 1) and
    (Grd0.col = Grd0.ColCount - 1) then
  begin
    Grd1.row := 1;
    Grd1.col := 0;
    Grd1.SetFocus;
  end;

end;