for i:=0 to checklistbox1.Items.Count-1 do
        begin
          if checklistbox1.Checked[i] then
          showmessage(inttoStr(i)+'is checked');
        end;

解决方案 »

  1.   

    for i := 0 to checklistbox.items.count - 1 do
    begin
      if checklistbox.check[i] then
        tmpstr := checklistbox.items[i]
    end;
      

  2.   

    tmpstr := checklistbox.items.strings[i]
      

  3.   

    帮助里面说用ItemIndex可以取到,不知道怎么样用?
    我不希望用循环
      

  4.   

    Project -> Setting 里,General 标签里的第一项,Microsoft Foundation Class 从 Use MFC in a Shared DLL 改到 Use MFC in a Static LIbrary. 即可
      

  5.   

    iamfancy(边城狂人) 
    你说的是什么意思阿?
      

  6.   

    ItemIndex是指你鼠标所在行吧,就是当前处于Active的那个item。
      

  7.   

    iamfancy(边城狂人) 是不是发错帖子了???