Checkboxen!!

Ik heb een aantal checkboxen die gecontroleerd moeten worden of deze zijn aangevinkt. 
Nu is het wel te doen als je 3 checkboxen hebt, om deze te controleren. Met de volgende code: 
If Checkbox1.Checked = true and 
If Checkbox2.Checked = true and 
If Checkbox3.Checked = true 
then 
bl@@t 
else 
bl&&t 

Als er een van de Checkboxen nog TRUE is dan moet er een MessageDlg gegeven worden met het bericht dat er nog een checkbox is aangevinkt. 

Indien er geen checkbox is aangevinkt dan is alles OKAY. 

Aangezien ik 30 checkboxen moet controleren of deze wel of niet aangevinkt zijn. Is mijn vraag nu!!!! 

Wie kan er een korte functie / procedure schrijven voor mij. 
Of in ieder geval een hint geven. 

Met vriendelijke groet, 


R1ddl3r

--

Je kunt de componenten van het form (of evt. een 'container' zoals een panel) eenvoudig doorlopen. Code is 'zo uit het hoofd', dus kan een beetje naast de syntax zitten : 

for teller := 0 to componentcount -1 do begin 
if component[teller] is TCheckbox then begin 
if (component[teller] as tcheckbox).checked then begin 
.... 
end 
else begin 
.... 
end; 
end; 
end 

je loopt dan alle componenten door, en doet de check op de check-boxen. 

Hopelijk help dit je 

Hans

--

Let wel dat dit alleen werkt als de component namen volgens de default conventie gegeven zijn. 
checkbox1,checkbox2,checkbox3.... 
Ofwel, heb je ze een functionele naam gegeven gaat dit niet werken. 
Kijk ff op Delphi Assist, hier staat een TIP! over iets dergelijs met buttons. (Er is dus een oplossing voor)

--

Ik ben bang dat je de caption verwart met het type. Ongeacht de naam blijft een checkbox van het type TCheckBox, dus blijft het gewoon werken..........

--

Zag ik ook na de submit, stom 

m.v.g.v Tijmon