음냐...팁에 강좌에서 보구 해보려구 하는데 ...access violation에러가 나요...똑같이 한거 같은데..틀린거..음..다른 이벤트에서 한다는거 밖에(제가 볼때는^^)

소스거덩요...좀 봐주세요..

i := 1;

While Not Qry_SG.Eof do

begin

//보증발급구분

Case StrToInt(Qry_SG.FieldByName('GU').AsString) of

0 : Str_Gu := '전체';

1 : Str_Gu := '신규';

2 : Str_Gu := '배서';

3 : Str_Gu := '재발';

4 : Str_Gu := '추가';

5 : Str_Gu := '해지';

end;//end of Case

//납부구분(현금 지로)

Case StrToInt(Qry_SG.FieldByName('SGU').AsString) of

1 : Str_SGU := '현금';

2 : Str_SGU := '지로';

end;//end of Case

SG_GRID.Cells[0,i] := Qry_SG.FieldByName('CODE').AsString +

'-'+

Qry_SG.FieldByName('GU').AsString +

Qry_SG.FieldByName('SGU').AsString; //발급코드

SG_GRID.Cells[1,i] := Str_Gu; //구분

SG_GRID.Cells[2,i] := ForMatCurr('#,0',Qry_SG.FieldByName ('TSUSU').AsCurrency); //수수료

SG_GRID.Cells[3,i] := Qry_SG.FieldByName('BIL').AsString; //발급일자

SG_GRID.Cells[4,i] := Qry_SG.FieldByName('BNAPIL').AsString; //납기일자



//체크박스의 동적 생성

SG_GRID.Objects[5, i] := TCheckBox.Create(SG_GRID);





SG_GRID.Cells[6,i] := '';

SG_GRID.Cells[7,i] := '';

i := i + 1;

Qry_SG.Next;

end;//end of While

그리구요...생성시킨 후에 이벤트는 그냥 강제로 프로시져 만들어서 호출함 되는건가요??

이 이벤트는 검색이거덩요...그러니까...음..임의로 만든 프로시져에요...