CheckBox Delphi

CheckBox je komponenta u Delphi-ju , pripada standardnim komponentama kreira se kao i sve ostale komponente u delphiju dvoklikom na CheckBox opciju u ToolBox meniju. Sluzi za selektovanje jedne ili vise opcija sa neke liste opcija koju mi kreiramo. Programiramo je u kombinaciji sa IF/ELSE naredbom uglavnom se koristi kombinacija ako je cekiran da se nesto izvrsi u suprtonom neka druga operacija, mada su moguce i ostale kombinacije. Uzecemo za primer jedan prost zadatak koji glasi ovako.

Zadatak: Napravimo program u kojem cemo imati sest CheckBox-ova, jednu Label komponentu , jedno Edit polje i jedno dugme, koji ce nam pruziti mogucnost da biramo od kojih vrsta cveca ce se sastojati buket koji zelimo pokloniti dragoj osobi.

Prvo uzimamo komponente i redjamo ih na praznu povrsinu Form-a, zatim dvoklikom na dugme koje smo postavili otvaramo code edit gde ukucavamo kod kojim cemo za svaki cekiran CheckBox ispisati njegovu neku vrednost u edit polje , u slucaju da ne cekiramo nista edit polje ce ostati prazno.

Kod bi izgledao ovako:

procedure TForm1.Button1Click(Sender: TObject);

begin

   if (box.Checked) or (CheckBox1.Checked) or (CheckBox2.Checked) or

   (CheckBox3.Checked) or (CheckBox4.Checked)  or (CheckBox5.Checked) then  begin

   edit1.text:='Buket ce sadrzati: ' + ' ' ;

   if box.Checked then   edit1.text:= edit1.text + 'Ruze' + ',' ;

   if CheckBox1.Checked then     edit1.text:= edit1.text + 'Ohrideje' + ',' ;

    if CheckBox2.Checked then     edit1.text:= edit1.text + 'Ljiljane' + ',' ;

   if CheckBox3.Checked then     edit1.text:= edit1.text + 'Narcise' + ',' ;

   if CheckBox4.Checked then     edit1.text:= edit1.text + 'Lale' + ',' ;

   if CheckBox5.Checked then     edit1.text:= edit1.text + 'Kale' + ',' ;

   end

   else edit1.clear;

end;                  

Ovako bi trebao da izgleda pokrenut program iz ovog zadatka.