1111 님이 쓰신 글 :
: StringGrid에서 엔터치면
: 다음 셀로 커서가 선택되어지게 하려면
: 어떻게 해야 되나요?
:
: 알려주시면 감사하겠습니다.
: 포커스 함수가 있는데 잘 모르겠네요.

예전에 어디서 본거 같은데 누가 올려준건지 잘 모르겠네염..
암튼..소스 참고하세요..

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
    Key := #0;
    with StringGrid1 do begin
      if Col < ColCount-1 then //다음 column
         Col := Col + 1
      else if Row < RowCount-1 then //다음 Row
      begin
        Row := Row + 1;
        Col := 1;
      end
      else
      begin //Grid의 끝이면 Top으로
        Row := 1;
        Col := 1;
      end;

    end;
end;
end;