Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Вниз

Как просмотреть свойства всех 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 ура!
^^^^^

---

← →
LongIsland   (2002-11-12 10:41) [4]

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]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c