for i := 1 to qur_cnt do

begin

StringGrid1.Objects[0,i] := TCheckBox.Create(StringGrid1);

with TCheckBox(StringGrid1.Objects[0,i]) do

begin

OnKeyUp := CheckBoxKeyUp; //--> CheckBox이벤트 연결부분

OnMouseUp := CheckBoxMouseUp;

Parent := StringGrid1;

Rect := StringGrid1.CellRect(0, i);

BoundsRect := StringGrid1.CellRect(0, i);



// 스크롤시 문제 타이틀에 올라가는 현상//

if (Rect.Top <= 0) then

Visible := False;

Width := StringGrid1.ColWidths[0] - 13;

Height := StringGrid1.RowHeights[0] - 1 ;// - 13;

Checked := True;

left := StringGrid1.Left + 7;



end;

end;

라는 식으로 체크박스를 만들었는데영

각 레코드에 체크를 하고 수직스크롤로 쭈욱 움직여 버리면

이전에 체크되었든것이 없어지기도 하구 없었던것이 생겨 버리기도하구..

정말 짜증납니다.



디비그리드에서 이제는 스트링그리드 이젠 더 뭘 어떻게 하라구..

이넘의 체크박스만 어언 일주일 지났군요..

어드밴스스트링 그리드 쓸라고 하니

쓰는 방법도 모르겠구.. 또 다시 시작할려니 짜증만 나구..

아무튼 위의 문제만 해결하면 거의 완성 할것 같은데..

아시는분 답변 부탁 드립니다.