TCheckListBox/fi

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

From the Free Pascal wiki, page "TCheckListBox/fi", as it stood on 2018-01-31 after a change by Djzepi, 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.