En demonstrasjon av CheckListBox komponentet
Last ned kildekode og exe - fil.
Dropp ett CheckListBox komponent, to knapper(buttons) og en label på en ny form som vist på bildet under.
Gå inn på "Items" på CheckListBox og skriv : en, to, tre ....., ti. Husk å trykke "enter" etter hvert tall.
På "caption" på "Button1" skriver du "Regn ut!" og på "Button2" skriver du "Ny".
Dobbelklikk på "Button1" , slett begin og end, og skriv:
| var T : Integer; begin T := 0; if CheckListBox .Checked[0] then T := T + 1; if CheckListBox .Checked[1] then T := T + 2; if CheckListBox .Checked[2] then T := T + 3; if CheckListBox .Checked[3] then T := T + 4; if CheckListBox .Checked[4] then T := T + 5; if CheckListBox .Checked[5] then T := T + 6; if CheckListBox .Checked[6] then T := T + 7; if CheckListBox .Checked[7] then T := T + 8; if CheckListBox .Checked[8] then T := T + 9; if CheckListBox .Checked[9] then T := T + 10; Label1.Caption := IntToStr(T); end; |
Hint : Skriv den første linjen (if CheckListBox .Checked[0] then T := T + 1;) og deretter bare kopier 9 ganger. Og deretter rett det som er forskjellig fra linje til linje.
Denne koden forteller at T = 0 når ingen av Checkboxene er "checked", men når f.eks "syv" er "checked" da er T = 0 + 7 = 7. Når "syv" og "ni" er "checked" da er T = 0 + 7 + 9 = 16.
"Label1.Caption := IntToStr(T);" gjør at programmet gjør T som er et tall (integer) om til tekst (String) slik "Label1" kan vise resultatet.
Dobbelklikk på "Button2" og skriv denne koden :
| begin CheckListBox .Checked[0] := false; CheckListBox .Checked[1] := false; CheckListBox .Checked[2] := false; CheckListBox .Checked[3] := false; CheckListBox .Checked[4] := false; CheckListBox .Checked[5] := false; CheckListBox .Checked[6] := false; CheckListBox .Checked[7] := false; CheckListBox .Checked[8] := false; CheckListBox .Checked[9] := false; end; |
Denne koden la jeg til slik at man kunne "unchecke" alle Checkboxene. Og slik blir programmet:
