Delphi : 탭이있는 문자열 격자 사이를 이동

Question

폼에 TStringGrid 구성 요소가 여러 개 있습니다. 탭을 사용하여 StringGrids 사이를 이동하고 싶습니다.

문제는 goTabs가 활성화되면 StringGrid의 셀 사이를 제대로 이동하지만 오른쪽 하단 셀을 선택하면 바로 다음 String이 동일한 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;