자료실에 보시면 샘플 프로그램도 있습니다...



  for i := 1 to SgdSelect.RowCount-1  do
   begin
     SgdSelect.Objects[0,i] := TCheckBox.Create(SgdSelect);
      with TCheckBox(SgdSelect.Objects[0, i]) do
        begin
        OnMouseUp  := CheckBoxMouseUp; //마우스체크이벤트
        Parent     := SgdSelect;
        BoundsRect := SgdSelect.CellRect(0, i);
        // Caption이 들어가는 부분이 잔상이 남아서 보기가 싫기때문에.
        // Width 와  Left 를 고정값으로 설정.
        Width      := 12;
        Height     := 13;
        //중앙에 배치되로록...
        Left       := (SgdSelect.CellRect(0,i).Right  div 2)-
                      (Width  div 2)  ;
        //체크된것이 디폴트로..
        Checked    := True;
       end;

procedure TForm1.CheckBoxMouseUp(Sender: TObject; Button: TMouseButton;
                              Shift: TShiftState; X, Y: integer);
begin

//-------------------------------------------------------------------
//  체크 박스를 마우스로 선택시 이벤트
//-------------------------------------------------------------------
    with TCheckBox(Sender) do
       Checked:= not Checked;

end;
    end;