초보자 wrote:

>

> 스트링그리드에서 7번째 칼럼만 수정하게 만들었습니다

>

> 업데이트로 말이죠..

>

> 그런데

> 아래 레코드의 그 칼럼으로 이동하려면

> 상하좌우 화살표중 아래화살표를 눌러야만 아래셀로 이동을 합니다

>

> 입력후

> 엔터치면 바로 아래셀로 이동하는 방법을 어떻게 구현해야 할지 모르겠습니다.

>







아래의 소스가 도움이 되었으면 좋겠네요..





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;

}



//아래위로 움직이는겨우

if Row < RowCount-1 then

Row := Row + 1

else if Col < ColCount-1 then

begin

Col := Col + 1;

Row := 1;

end

else

begin

Row := 1;

Col := 1;

end;



end; //with StringGrid1 do begin...End...

end; //if Key = #13 then begin...End..



end;