| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

перебор объектов TCheckBox на форме

-=snoop=- ©   (2005-07-20 06:42:00) 

привет всем, подскажите как можно в цикле перебрать 15 объектов TCheckBox на форме?
делаю вот как

var
 i : integer ;
 ComboBox : TComboBox ;
begin
 ComboBox := TComboBox.Create(form2);
 ComboBox.Name := 'ComboBox' ;
  for i := 1 to 15 do
   begin
     ComboBox[i].ItemIndex := -1
   end ;

не получается

---

-=snoop=-   (2005-07-20 08:50:00) [1]

не знание=сила!

---

Джо   (2005-07-20 08:47:00) [2]

> var
>  i : integer ;
>  ComboBox : TComboBox ;
> begin
>  ComboBox := TComboBox.Create(form2);
>  ComboBox.Name := 'ComboBox' ;
>   for i := 1 to 15 do
>    begin
>      ComboBox[i].ItemIndex := -1
>    end ;

Ух, аж дух захватило... Что это за бред? Так сказать, в чем первооснова такого кода - ведь откуда-то такое нужно было взять?

---

Джо   (2005-07-20 08:43:00) [3]

>  [4] -=snoop=- ©   (20.07.05 08:13)
> а как обратиться к свойству ItemIndex этого объекта??

Точно также, как и к свойству Text в примере из [2] Джо ©.

---

-=snoop=-   (2005-07-20 08:13:00) [4]

а как обратиться к свойству ItemIndex этого объекта??

---

-=snoop=-   (2005-07-20 08:06:00) [5]

Спасибо всем!! = работает!

---

Джо   (2005-07-20 07:46:00) [6]

procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
begin
 for I := 0 to ComponentCount-1 do
 begin
   if Components[I] is TComboBox then
     ShowMessage(TComboBox(Components[I]).Text)
 end;
end;

---

ЮЮ   (2005-07-20 07:33:00) [7]

TCheckBox в subj, TComboBox - в коде

ComboBox [i].ItemIndex
откуда i, если ComboBox : TComboBox ?

Тогда уж

var
i : integer ;
ComboBoxes : array[1..5] of TComboBox ;
begin
 for i := 1 to 15 do begin
   ComboBox := TComboBox.Create(form2);
   ComboBox.Left :=
   ...
   ComboBox.Parent := form2;
   ComboBoxes[i] := ComboBox;  
 end ;

Если с ComboBoxes предполагается дальнейшая работа как с массивом, то лучше сделать не локальной переменной, а privare полем формы

---

Наверх