TCheckListBox/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

From the Free Pascal wiki, page "TCheckListBox/ru", as it stood on 2018-02-18 after a change by Useroflazarus, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.