Q&A

  • StringGrid의 구문인데.. 문장 해석 좀 부탁합니다.
프로그램을 공부하면서 하나 짜고 있는데.. 스트링그리드가 나오는데..

그 구문은 이해가 안가서 도움 좀 청할려구요..어디 스트링그리드에 대해 자세하게

초보자가 알기 쉽도록 설명해놓은 곳 없나요.. 혹 책이라도..



procedure Thinfputf.StringGridfamilyKeyPress(Sender: TObject;

var Key: Char);

begin

If Key=#13 then

begin

case StringGridFamily.col of

0:if StringGridFamily.Cells[0,StringGridFamily.Row]='' then

BtnPost.SetFocus

else

StringGridFamily.Col:=1;

1:StringGridFamily.Col:=2;

2:StringGridFamily.Col:=3;

3:begin

stringGridFamily.Row:=StringGridFamily.Row+1;

StringGridFamily.col:=0



end;

end;

end;

end;

위의 구분 좀 자세하게 설명 좀 해주세요.. 부탁드립니다.

1  COMMENTS
  • Profile
    김영대 1999.11.25 03:04
    sun wrote:

    > 프로그램을 공부하면서 하나 짜고 있는데.. 스트링그리드가 나오는데..

    > 그 구문은 이해가 안가서 도움 좀 청할려구요..어디 스트링그리드에 대해 자세하게

    > 초보자가 알기 쉽도록 설명해놓은 곳 없나요.. 혹 책이라도..

    >

    > procedure Thinfputf.StringGridfamilyKeyPress(Sender: TObject;

    > var Key: Char);

    > begin

    > If Key=#13 then

    > begin

    > case StringGridFamily.col of

    > 0:if StringGridFamily.Cells[0,StringGridFamily.Row]='' then

    > BtnPost.SetFocus

    > else

    > StringGridFamily.Col:=1;

    > 1:StringGridFamily.Col:=2;

    > 2:StringGridFamily.Col:=3;

    > 3:begin

    > stringGridFamily.Row:=StringGridFamily.Row+1;

    > StringGridFamily.col:=0

    >

    > end;

    > end;

    > end;

    > end;

    > 위의 구분 좀 자세하게 설명 좀 해주세요.. 부탁드립니다.



    StringGrid의 각 Cell 에 어떤 값을 입력 후 Enter 키를 누르면

    다음 Cell 로 자동으로 이동하는 루틴같습니다

    StringGrid에 대해서만 설명한 자료가 있나요?

    예제를 많이 실행해 보는것이 설명문을 보는것보다 효과적인 학습같은데...



    제 홈페이지(http://myhome.shinbiro.com/~cozykyd/index.htm)의

    "Delphi Tps"에서 "StringGrid" 로 검색해 보시면

    예제가 몇개 있으니 실행해 보세요