Скачать: CL | DM;

перебор объектов TCheckBox на форме   Найти похожие ветки 

← →
-=snoop=- ©   (2005-07-20 06:42) [0]

привет всем, подскажите как можно в цикле перебрать 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 ;

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

---

← →
ЮЮ ©   (2005-07-20 07:33) [1]

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 полем формы

---

← →
Джо ©   (2005-07-20 07:46) [2]

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;

---

← →
-=snoop=- ©   (2005-07-20 08:06) [3]

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

---

← →
-=snoop=- ©   (2005-07-20 08:13) [4]

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

---

← →
Джо ©   (2005-07-20 08:43) [5]

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

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

---

← →
Джо ©   (2005-07-20 08:47) [6]

> 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) [7]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c