, zodat de componenten van gegevens duidelijke, eenvoudige methode.In plaats van de gegevens op de hoogte vakje (knopen), kan een meer flexibele, terwijl Delphi,., meest recente versie kan worden voor een betere weergave van de gegevens en de knop van de vakje ervaren die ik nog steeds met D4.Ik hoop dat de gegevens vaak waargenomen (') met inbegrip van onderdelen, niet   D4 schuine doos knopen in de groep, (b) worden als een vorm van meer papier, (C) zorgt voor een meer flexibele regelingen in de groep van de projecten, en (d) mogen ongewone - knop is "of" en "en, kortom, meer flexibiliteit, en ik denk dat dit het recept, ook aan een controle die niet weet, gegevens en dit vermogen, is de methode van het vakje,,, de bovenste en onderste rij in de volgende code door de vertegenwoordiger van de klasse tcheckboxcollection en tpersonalitycbcollection waren.Elke categorie is een vakje descriptoren en hun methoden, de klik container, getvalue en setvalue, de vaststelling van de controle regeling van collectieve actie, en personeel van collectieve waarden en de bijbehorende gegevens bewust controle, dus, en de opslag van gegevens is geregeld, vakje gedragen als een fractie van de knoppen.Integendeel, de vaststelling van een vakje een keer kunnen worden gecontroleerd, en "reset"; een vakje voor alle verwijder de inspecties, uw opmerkingen van harte welkom.,,,,, eenheid interface zijn;,,,,,, ramen, nieuws, SysUtils, klasse, grafische, de controles, de vorm, de dialoog, de,, dB, stdctrls, maskers, dbctrls dbtables extctrls;,,,,,,,,,,,,, tcheckboxdescriptor =, verborgen In de reactie /het gedrag van de standaard, het vakje, ///////klik, en vereenvoudiging van de werking van de verpakking voorwerpen,,,,, preclickedstate: particuliere, tcheckboxstate;,,,,,,, tcheckboxstate getState:; programma 's, die status (status: tcheckboxstate);,,,,,,,, tcheckbox vakje:,, de aard, de staat: lezen, schrijven en tcheckboxstate getState setstate;,,, de fabrikant, de oprichting van (vakje: tcheckbox);,,,,,,,,,,, tcheckboxcollection = ///////de gegevens Met betrekking tot de doos enDe waarde en het verzamelen van,, ///////vakje standaard gedrag beschrijven als de knop, checkboxdescriptors:TList; Bull. Handlingclick:,,,,,,,,, private functie, findsender (afzender: TObject): tcheckboxdescriptor;,,, de functie, het touw is:,,,,, de procedures, de setValue (waarde:,...);,,,,,,,,, associateddbedit:TDBEdit; de fabrikant, het creëren van (DBEdit:TDBEdit; thecheckboxes:, installatie, tcheckbox);,,, programma 's, klik (afzender: TObject);,,, eigendom, waarde: lezen, schrijven, touw, is de waarde;,,,,,, tpersonalitycbcollection =,,,,,, ///////(tcheckboxcollection) afgeleide, kan meer dan één vakje worden gekozen, en het gebruik van de tijd, /,Een vakje aan anderen,,,,,, particuliere, is de functie van:,,,,, touw, procedures, setValue (waarde:,...);,,,,,,, eigendom, waarde: string, lezen en schrijven, is de vaststelling van de waarde van het programma;,,,,, - (afzender: TObject);,,,,,,,, is een gebeurtenis =, klasse, (platform), tabel; dbedit1:TDBEdit;,,,,,,,, datasource1:TDataSource; CheckBox1:tcheckbox; checkbox2:tcheckbox;,,,, checkbox3:tcheckbox; checkbox4: tcheckbox;,,,,, checkbox5:tcheckbox; checkbox6:tcheckbox, checkbox7:tcheckbox;; checkbox8:tcheckbox;,,,,,, checkboxna:tcheckbox; checkbox9:tcheckbox;,,,,, checkbox10:tcheckbox; checkbox11:tcheckbox; checkbox12:tcheckbox;,,,Checkbox13:tcheckbox;,,,, checkbox14:tcheckbox; checkbox15:tcheckbox;,,,, checkbox16:tcheckbox; dbnavigator1:TDBNavigator;,,,,, label1:TLabel; label2:TLabel; de code voor label3:TLabel, in blokken, in de vorm van:;, "t" in de vorm van label4:TLabel;,,,,,,,, dbedit2:TDBEdit; programma 's, formcreate (afzender: TObject);,,, de procedures, de checkboxnaclick (afzender: TObject);,,, de procedures, de dbedit1change (afzender: TObject);,,, de procedures, de checkbox9click (afzender: TObject);,,, de procedures, de dbedit2change (afzender: TObject);,,,,, severitycbs:tcheckboxcollection; particuliere, personalitycbs:tpersonalitycbcollection;,,,,,,,,,,,,,,, var, form1: een gebeurtenis;,,,,,, de uitvoering, de {% r * * * * * * *). Voor de fabrikant, tcheckboxdescript,,,Of het creëren van (vakje: tcheckbox);,,,,,,,, erfenis, het scheppen van werkgelegenheid; het vakje vakje: =;,, /houden het ontwerp staat het vakje vakje, preclickedstate:=. Staat;,,,,,,,,,,,,, de resultaten te tcheckboxdescriptor.getstate:tcheckboxstate;: = preclickedstate;,,,,,,, de procedures, de tcheckboxdescriptor.setstate (staat: tcheckboxstate);,,,,, vakje. Staat: = staat preclickedstate:=;,,,,,,,,, de constructeurs, tcheckboxcollection. Het creëren van (DBEdit:TDBEdit; thecheckboxes:, installatie, tcheckbox);,,,, ik: var, de gehele;,,,,,,,, erfenis, het scheppen van werkgelegenheid; associateddbedit:= DBEdit;,, checkboxdescriptors:= TList. Creëren;,,,, ik: = 0, hoge (thecheckboxes), doen, checkboxdescriptors (tcheckboxdescriptor, toe te voegen.Het creëren van (thecheckboxes [M]); handlingclick:= valse;,,,,,,,,,,,, tcheckboxcollection.findsender (afzender: TObject): tcheckboxdescriptor;,,,,,, C:VaR, gehele; checkboxdescriptor:tcheckboxdescriptor;,,,,, checkboxdescriptor:=, nul,,,,,, C = 0, checkboxdescriptors. Graaf 1, begint te doen,,,, checkboxdescriptor:= checkboxdescriptors [C]. Projecten;,,, als checkboxdescriptor.checkbox = te sturen, en dan de rest,,,,,,,, aan het einde van de resultaten: = checkboxdescriptor,,,,,,, de procedures, de tcheckboxcollection. Klik (afzender: TObject);,,,, clickedcbdescriptor var, onecbdescriptor:tcheckboxdescriptor;,, C: gehele getal;,,,,,, als handlingclick, stop dan. Handlingclick:= waar;,,,, clickedcbdescr- = findsender (afzender);,,, als clickedcbdescriptor = cbchecked. Staat, dan clickedcbdescriptor. Staat: = cbunchecked, anders begint,,,,,, clickedcbdescriptor. Staat: = cbchecked;,,,, C = 0, checkboxdescriptors. Graaf 1, begint te doen,,,, onecbdescriptor:= checkboxdescriptors C. Projecten;,,, als onecbdescriptor < > clickedcbdescriptor, dan onecbdescriptor. Staat: = cbunchecked;,,,,,,,,,,,, associateddbedit. Bron associateddbedit. Uitgegeven;,, = de waarde van de tekst:.;,, handlingclick:= valse;,,,,,,, het programma, tpersonalitycbcollection. Klik (afzender: TObject);,,,,,, clickedcb:VaR, tcheckbox; clickedcbdescriptor, onecbdescriptor:tcheckboxdescriptor;,, C: gehele getal;,,,,,, als handlingclick in West, dan,Handlingclick:= waar; t;,,,,,, clickedcb:= zender, tcheckbox; clickedcbdescriptor:= findsender (afzender);,,, als clickedcb. De naam = "checkbox16" en,,,,, C = 0, checkboxdescriptors.Graaf 1, begint te doen,,,, onecbdescriptor:= checkboxdescriptors [C]. Projecten;,, onecbdescriptor. Staat: = cbunchecked;,,,,,,, in andere gevallen, clickedcbdescriptor.,,,, cbchecked:clickedcbdescriptor. Staat: = cbunchecked;,,, andere, clickedcbdescriptor. Staat: = cbchecked;,,,,,,, associateddbedit. Bron associateddbedit. Uitgegeven;,,. De tekst: = waarde van handlingclick:=;,,,,,,,.,,,,,,,, tpersonalitycbcollection.getvalue:.,,, C, de VAR - model, resultasint: gehele getal;,,,,,, onecbdescriptor:tcheckboxdescriptor; resultasint:= 0,,,..;: = 1;,,,, C = 0, checkboxdescriptors.Graaf 2, begint te doen,,,,, als, C > 0, dan sterven: = * 2;,, onecbdescriptor:= checkboxdescriptors [C]. Projecten;,,, als onecbdescriptor.checkbox.state = cbchecked, dan resultasint:= resultasint + sterven,,,,,,, aan het einde van de resultaten: =;,,, IntToStr (resultasint),,,,,,, de functie, het touw, tcheckboxcollection.getvalue:,,,,,,,, C:VaR, gehele; onecbdescriptor:tcheckboxdescriptor;,,,,,,, C = 0, checkboxdescriptors.Graaf 1, begint te doen,,,, onecbdescriptor:= checkboxdescriptors [C]. Projecten;,,, als onecbdescriptor.checkbox.state = cbchecked, dan beginnen de,,,,, als onecbdescriptor.checkbox.caption = n /A, en van de resultaten: = 0, ",,, anders zijn de resultaten: = onecbdescriptor. Vakje Nederlandse ondertitels;,, de rest.,,,,,,,,,,,,,,, programma 's, tpersonalitycbcollection.setvalue (waarde:,...);,,,, C, de VAR - mode. Onecbdescriptor:tcheckboxdescriptor:;,,,,,,,, als begin, waarde =, stop dan, als handlingclick;,,, dan verlaten; handlingclick:= waar;,,,,,,..: = 1; -: = strtoint (waarde);,,,, C = 0, checkboxdescriptors.Graaf 1, begint te doen,,,,, als, C = 0, en dan sterven: = 1, anders sterven: = * 2;,, onecbdescriptor:= checkboxdescriptors [C]. Projecten;,,, als, (mode, mode) < > 0, dan staat: = cbchecked, onecbdescriptor.,, andere, onecbdescriptor. Staat: = cbunchecked;,,,,,,,,,,, handlingclick:= valse;,,, de procedures, de tcheckboxcollection.setvalue (waarde:,,,,,...); C:VaR, gehele; onecbdescriptor: tcheckboxdescriptor;,,,,,,,, dan uit Als waarde = "als handlingclick;,,,,,,, dan verlaten; handlingclick:= waar;,,,, C = 0, checkboxdescriptors.Graaf 1, begint te doen,,,, onecbdescriptor:= checkboxdescriptors [C]. Projecten;,, onecbdescriptor. Staat: = cbunchecked;,,,,,,, C = strtoint (waarde);,, onecbdescriptor:= checkboxdescriptors [C]. Projecten;,, onecbdescriptor. Staat: = cbchecked;,,,,,, handlingclick:= valse;,,, programma 's, een gebeurtenis plaatsvindt. Formcreate (afzender: TObject);,,,,, severitycbs:= tcheckboxcollection.Het DBEdit1,,, [CheckBoxNA, CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5, CheckBox6, CheckBox7, CheckBox8]); PersonalityCBs:=TPersonalityCBCollection.Create (DBEdit2,,,,, [CheckBox9, CheckBox10, CheckBox11, CheckBox12, CheckBox13, CheckBox14, CheckBox15, CheckBox16]); aan het einde van Table1.Open,,,,,,, en de procedure, TForm1.CheckBoxNAClick (Sender: TObject);,,, ",, SeverityCBs.Click (afzender);,, aan het einde van de procedure;,,,, TForm1.DBEdit1Change (Sender: TObject);,,,",,, SeverityCBs.SetValue (DBEdit1.Text), aan het einde van de procedure, TForm1.CheckBox9Click;,,,,, (Sender: TObject); ik PersonalityCBs.Click (,,,,, aan het einde van de afzender);;,,,., TForm1.DBEdit2Change (Sender: TObject);,,, ",,,, aan het einde van PersonalityCBs.SetValue (DBEdit2.Text);,,,,,,.,,,,,,,,,