TCheckListBox/pl

TCheckListBox to komponent, który pokazuje (przewijalną) listę pól wyboru, w których użytkownik może dokonać wielu wyborów. Jest dostępny na karcie Additional tab w Component Palette.

Użycie

Pomyśl o TCheckListBox jak o dwóch komponentach w jednym: listy ciągów w TListBox pokazanych po prawej stronie i polach wyboru TCheckBox po lewej stronie. Ciągi są zazwyczaj opisami tego, co użytkownik wybiera, jeśli kliknie pole wyboru. Ciągi mogą być ładowane indywidualnie za pomocą np. takiego kodu -

CheckListBox1.AddItem('Pierwsza linia', Nil);
CheckListBox1.AddItem('Druga linia', Nil);

Lub możesz przypisać istniejącą listę ciągów wypełnioną gdzie indziej -

CheckListBox1.Items.Assign(MyStringList);

Dobrze jest wtedy umieścić pola wyboru w znanym, określonym stanie -

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

TCheckListBox pozwala użytkownikowi zaznaczyć tyle pól wyboru, ile zechce. Użyj zdarzenia OnItemClick, aby wymusić nie więcej niż jedno zaznaczenie -

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;

Aby odczytać pola wyboru, gdy (np.) Użytkownik zakończy pracę -

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

Zobacz także

• TCheckListBox doc
• TCheckBox
• TListBox

From the Free Pascal wiki, page "TCheckListBox/pl", as it stood on 2020-06-08 after a change by Slawek, 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.