Как просмотреть свойства всех CheсkBox-ов на форме?

← →
guood (2002-11-12 10:19) [0]

Здраствуйте, Мастера. Возникла такая проблема:
на форме есть много CheсkBox-ов (порядка 40-а). Подскажите, плз. как можно на каких из них выставленно свойство Checked в true
заранее спасибо за ответ

← →
MBo © (2002-11-12 10:29) [1]

пробеги по Components[] или Controls[]
c применением
if Components[i] is TCheckBox then
что-то:=TCheckBox(Components[i]).Checked;

← →
_Nicola_ (2002-11-12 10:31) [2]

Можно использовать CheckListBox.
Или цикл по Forms.Components[i]
if Components[i] as TCheckBox then ура!

← →
_Nicola_ (2002-11-12 10:35) [3]

Сорри за
_Nicola_ (12.11.02 10:31)
> if Components[i] as TCheckBox then ура!
надо
if Components[i] is TCheckBox then ура!
^^^^^

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin CheckBox1.Checked:=True; for i:=0 to Form1.ComponentCount-1 do if Components[i] is TCheckBox then if TCheckBox(Components[i]).Checked then tag:=tag+1; Button1.Caption:=IntToStr(tag); end;

← →
guood (2002-11-12 11:02) [5]

Всем огромное спасибо за помощь

Как просмотреть свойства всех CheсkBox-ов на форме? Найти похожие ветки