tchecklistbox에서 여러 열을 사용하는 방법은 무엇입니까?
-
19-09-2019 - |
문제
Tchecklistbox 컨트롤을 사용하고 있으며 이것에 두 번째 열을 사용하고 싶지만 열 및 헤더 속성 외에도 소스를 찾을 수 없습니다. 삽입 다중 검은 내용 ...
그것은 Noobie 질문처럼 보일 수 있지만 Delphi의 도움은 이것에 대한 내용이없고 내 검색 (Google 등에서)은 많은 쓰레기를 가져 왔습니다 ...
예제 만 필요합니다.
해결책
이것은 a를 사용하여 불가능합니다 TCheckListBox
.
그러나 당신은 a를 사용할 수 있습니다 TListView
.
설정 ViewStyle
속성 vsReport
그리고 Checkboxes
에게 True
.
열을 만들고 항목을 추가하려면 다음과 같습니다.
procedure TFormMain.Button1Click(Sender: TObject);
var
Item1, Item2: TListItem;
begin
ListView1.Columns.Add.Caption := 'aa';
ListView1.Columns.Add.Caption := 'bb';
Item1 := ListView1.Items.Add;
Item1.Caption := 'item1';
Item1.SubItems.Add('subitem1');
Item2 := ListView1.Items.Add;
Item2.Caption := 'item2';
Item2.SubItems.Add('subitem2');
Item2.Checked := True;
end;
보이는 것 같습니다 :
확인란 목록 http://img638.imageshack.us/img638/4681/clipboard01y.png
다른 팁
나는 틀릴 수 있지만 열은 서식 목적보다는 래핑을위한 것이라고 생각했다.
예,
열 수를 2로 설정하여 3 개 또는 4 개의 항목 추가 상자 크기를 수직으로 조정하면 항목이 열을 채우는 것을 볼 수 있습니다.
제휴하지 않습니다 StackOverflow