Q&A

  • StringGride의 로우에 여러개생성된 CheckBox읽기..
스트링 그리드의 로우에 여러개의 첵크박스를생성 했습니다.
아래 소습니다.
     for y := 0 to 9 do begin
        yy := '';
        yy := inttostr(y+1);
        if FieldByName('tr_mu' + yy).asstring <> '' then begin
           StringGrid1.Objects[3,i] := TcheckBox.Create(StringGrid1);
           with TCheckBox(StringGrid1.Objects[3,i]) do begin            
              OnMouseUp := CheckBoxMouseUp;
              Parent := StringGrid1;
              BoundsRect := StringGrid1.CellRect(3, i);
              Width := StringGrid1.ColWidths[1];
              Height := StringGrid1.RowHeights[1];
              Caption := FieldByName('tr_ca' + yy).asstring;
              Checked := True;              
              Left := 260 +(y*50);
           end;
        end
     end;

위 소스로 체크박스를 동적으로 생성하면
스트링 그리드에 3칼럼, 각 로우에 체크박스가 3개~ 5개 생성됩니다.
----------------------------------------------------------
| Project |실행관리 | ㅁALL  | ㅁ입력  ㅁ수정  ㅁ삭제  ㅁ조회
___________________________________________________________
| Project |프로젝트 | ㅁALL  | ㅁ입력  ㅁ수정  ㅁ삭제  ㅁ조회
___________________________________________________________
              ....
              ....

이제 스트링그리드의 각 로우에 있는 여러개의 스크링 그리드를 읽어서
첵크가 True인지 False인지 읽고 싶습니다.
아래소스는 로우에 첵크박스가 한개일때는 가능한데요... 여러개 일때는 어찌
해야 읽을 수 있을까요?
    for y := 1 to StringGrid1.RowCount - 1 do begin
        with TCheckBox(StringGrid1.Objects[3,y]) do begin
           if checked then begin

           end;
         end;
    end;
                            

0  COMMENTS