Q&A

  • TCheckListBox 사용법

안녕하세요?
또다시 도움을 구합니다....에구구
TCheckListBox를 사용하려고 합니다.
  CheckListBox에 아이템을 집어넣는것 까진 잘됩니다.
그런데  CheckListBox를 더블 클릭 하면 선택된 아이템의 값(text)를 가져 올수가 없군요.
예를 들어 CheckListBox에 아이템이
1
2
3
이렇게 있을때..
procedure TForm1.CheckListBox1DblClick(Sender: TObject);
begin
Label1.Caption := CheckListBox1.Items.Text;
end;
이렇게 하면  CheckListBox의 전체 아이템을 가져 오더군요....
  1
  2
  3
선택된(=클릭된) 아이템의 값만 가져 올수가 없나요?
그리고 체크된 아이템의 값은 어떻게 가져오죠?
체크된 아이템의 갯수(카운트) 와 체크된 아이템들의 값을 어떻게 알아내죠?
TListBox와 비슷한거 같아서 TListBox를 함수를 이것저것 해봐도 원하는 대로 안되는 군요.
그리고 또  CheckListBox 에서 체크되는 아이템 갯수를 제한 할수도 있나요?
쉬울것 같으면서도 어렵네요.....
그럼 아시는 분들의 조언을 기다리면 저 나름대로 해보겠습니다.
  건강하십시오.
1  COMMENTS
  • Profile
    서은구 2002.02.22 06:43
    ---------------------------------------------------------------------
    제가 사용하는 방법입니다. 좀 무식한듯 하기는 하지만....
    조금만 응용하시면 체크된 것의 카운터를 구하는 것도 가능할겁니다.

    procedure TForm1.Button1Click(Sender: TObject);
    var i : Integer;
        StrLst : TStringList;
    begin
      StrLst := TStringList.Create;
      StrLst.Clear;
      For i := 0 to CheckListBox1.Items.Count - 1 do begin
        if CheckListBox1.Checked[i] then begin
          StrLst.Add(CheckListBox1.Items[i]);
        end;
      end;
      Memo1.Text := StrLst.Text;
      StrLst.Free;
    end;

    도움이 될수있기를....

    ---------------------------------------------------------------------