TCheckListBox/fi

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

TCheckListBox on komponentti joka näyttää tarvittaessa vieritettävän luettelon valintaruuduista, joista käyttäjä voi tehdä useita valintoja. Se löytyy Additional -välilehdeltä komponenttipaletilta.

Käyttö

Ajattele, että TCheckListBox on kaksiosainen, TListBox:n merkkijonot ovat oikealla ja vasemmalla valintaruudut. Merkkijonot ovat tyypillisesti kuvauksia siitä, mitä käyttäjä valitsee, jos he klikkaavat valintaruutua. Merkkijonot voidaan ladata yksittäin käyttäen (esim.) -

CheckListBox1.AddItem('Line One', Nil);
CheckListBox1.AddItem('Line Two', Nil);

Tai siihen voidaan liittää muualla tehty merkkijonoluettelo -

CheckListBox1.Items.Assign(MyStringList);

Hyvä idea on laittaa valintaruudut tiettyyn tilaan -

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

TCheckListBox antaa käyttäjälle mahdollisuuden valita niin monta valintaruutua kuin he haluavat. Käyttämällä OnItemClick-tapahtumaa voidaan sillä pakottaa niin että voidaan valita enintään yksi

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;

Valintaruutujen lukeminen kun (esim.) sovelluksen käyttäjä on vastannut

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

Katso myös

• TCheckListBox doc
• TCheckBox
• TListBox