안녕하세요.  델파이 초보자입니다.

AdvStringGrid1에 행과 열에 체크박스를 생성하려고 합니다.

체크박스가 생성이 된 후에 행에 있는 체크박스는 마우스를 가져가면 선택이 되는데

열에 있는 체크박스가 선택이 되질 않습니다.   행과 열 모두 체크가 안되는 것도 아니구

열에 추가된 체크박스만 선택이 되질 않아요.

옵션 선택에 있어서 머가 잘 못 된걸까요?

제발 답변 부탁드립니다... T_T



<!--CodeS-->
procedure TForm1.CheckBoxViewExecute(Sender: TObject);
begin
   for i:=1 to AdvStringGrid1.ColCount-1 do begin
       AdvStringGrid1.AddCheckBox(i,0,True,False);
       AdvStringGrid1.AutoSizeCol(i);
    end;

   for i:=2 to AdvStringGrid1.RowCount-1 do begin
       AdvStringGrid1.AddCheckBox(0,i,True,False);
       AdvStringGrid1.AutoSizeCol(0);
    end;
end;

procedure TForm1.AdvStringGrid1CanEditCell(Sender: TObject; ARow,
  ACol: Integer; var CanEdit: Boolean);
var
  i,j :integer;
begin
    for i:= 1 to AdvStringGrid1.ColCount-1 do  begin
        if (ACol in [i]) then  begin
            if (ARow in [0]) then  begin
                CanEdit := True;
              end;
        end;
    end;

   for j:= 2 to AdvStringGrid1.RowCount-1 do  begin
        if (ARow in [j]) then  begin
            if (ACol in [0]) then  begin
                CanEdit := True;
              end;
        end;
    end;
end;
<!--CodeE-->