프로그램을 공부하면서 하나 짜고 있는데.. 스트링그리드가 나오는데..
그 구문은 이해가 안가서 도움 좀 청할려구요..어디 스트링그리드에 대해 자세하게
초보자가 알기 쉽도록 설명해놓은 곳 없나요.. 혹 책이라도..
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;
위의 구분 좀 자세하게 설명 좀 해주세요.. 부탁드립니다.
> 프로그램을 공부하면서 하나 짜고 있는데.. 스트링그리드가 나오는데..
> 그 구문은 이해가 안가서 도움 좀 청할려구요..어디 스트링그리드에 대해 자세하게
> 초보자가 알기 쉽도록 설명해놓은 곳 없나요.. 혹 책이라도..
>
> 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" 로 검색해 보시면
예제가 몇개 있으니 실행해 보세요