
16-04-2006, 01:37
|
 |
|
|
חבר מתאריך: 23.11.03
הודעות: 4,041
|
|
הדרך שכתבתי אמורה להיות הפשוטה.
ל- GroupBox יש מערך של TControl (המחלקה הבסיסית שממנה יורשים כל הרכיבים האחרים, כגון CheckBox). בכל פעם שאתה מוסיף CheckBox לתוך GroupBox, הוא מתווסף למערך הזה.
כדי לעבור על כל הרכיבים במערך יש להישתמש בלולאה. כדי לדעת את הטיפוס של הרכיב הספציפי במערך אפשר להישתמש באופרטורים is ו- as:
קוד PHP:
...
var i: Integer;
ctrl: TControl;
begin
for i := 0 to GroupBox1.ControlCount - 1 do
begin
ctrl := GroupBox1.Controls[i];
if (ctrl is TCheckBox) then (ctrl as TCheckBox).Checked := True;
end;
...
|