TCheckListBox/ru

│ English (en) │ suomi (fi) │ français (fr) │ 日本語 (ja) │ polski (pl) │ русский (ru) │

TCheckListBox является компонентом , который отображает список флажков (с прокруткой), в котором пользователь может выбрать несколько элементов. Данный компонент доступен на вкладке Additional палитры компонентов.

Использование компонента

Представьте, что TCheckListBox состоит из двух частей - строк в виде списка, отображаемых справа, и флажков, расположенных слева. Строки обычно представляют описание того, что выбирает пользователь с помощью щелчка по флажку. Строки могут быть загружены индивидуально, например используя подобный код:

CheckListBox1.AddItem('Строка №1', Nil);
CheckListBox1.AddItem('Строка №2', Nil);

Или же вы можете присвоить список строк, заполненный в другом месте:

CheckListBox1.Items.Assign(MyStringList);

Вот хорошая идея для того, чтобы установить флажки в нужное состояние:

    for I := 0 to CheckListBox1.Count-1 do
        CheckListBox1.Checked[I] := False;

Компонент TCheckListBox позволяет выбрать столько флажков, сколько необходимо. Используйте событие OnItemClick, чтобы можно было выбрать не более одного элемента:

procedure TNoteBookPick.CheckListBox1ItemClick(Sender: TObject; Index: integer);
var
	I : integer;
begin
    if (Sender as TCheckListBox).Checked[Index] then begin
        for I := 0 to CheckListBox1.Count -1 do
            CheckListBox1.Checked[I] := False;
        CheckListBox1.Checked[Index] := True;
    end;
end;

Получить значения выбранных флажков после того, как пользователь выбрал нужные:

    for I := 0 to CheckListBox1.Count -1 do
        if CheckListBox1.Checked[I] then DebugLn('Checked Item ' + CheckListBox1.Items[I]);

См. также

• Документация по TCheckListBox
• TCheckBox
• TListBox