안녕하세요?
또다시 도움을 구합니다....에구구
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 에서 체크되는 아이템 갯수를 제한 할수도 있나요?
쉬울것 같으면서도 어렵네요.....
그럼 아시는 분들의 조언을 기다리면 저 나름대로 해보겠습니다.
건강하십시오.
제가 사용하는 방법입니다. 좀 무식한듯 하기는 하지만....
조금만 응용하시면 체크된 것의 카운터를 구하는 것도 가능할겁니다.
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;
도움이 될수있기를....
---------------------------------------------------------------------