스트링 그리드의 로우에 여러개의 첵크박스를생성 했습니다.
아래 소습니다.
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;