TCheckListBox/pl

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

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