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

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

Работа с несколькими компонентами [D7, WinXP]

vigo ©   (2005-07-04 17:10:00) 

Добрый день!
На форме несколько combobox'ов и пытаюсь вписать в процедуру FormShow перевод значений combobox'ов в начальное:
for i := 1 to Application.ComponentCount-1 do
 if Form1.Components[i].ClassType = TComboBox
  then TComboBox(Sender).ItemIndex := 0;
на ошибку не ругается, но ничего не меняется...
как можно одновременно поменять значения нескольких компонентов не расписывая по каждой...

---

vigo   (2005-07-04 17:49:00) [1]

спасибо с небольшой поправкой:
for i:=0 to ComponentCount-1 do
if Components[i].ClassType = TComboBox then
 TComboBox(Components[i]).ItemIndex:=0;

---

ANB   (2005-07-04 17:45:00) [2]

> vigo   (04.07.05 17:40) [3]

1. не хами.
2. читай книжки
3. компоненты на форме принадлежат форме

---

TUser   (2005-07-04 17:43:00) [3]

После [3] прошу модераторов мой пост удалить.

---

TUser   (2005-07-04 17:42:00) [4]

И Form1 не надо указывать - это Self

for i:=0 to ComponentCount-1 do
 if Components[i] if TCustomComboBox then
   TCustomConmoBox(Components[i]).ItemIndex:=0;

---

vigo   (2005-07-04 17:40:00) [5]

Чапаев ©
<-- лучше бы if Form1.Components[i] is TComboBox

Лучше бы чего-нить дельное написал (если такой умный)...

---

Чапаев   (2005-07-04 17:17:00) [6]

if Form1.Components[i].ClassType = TComboBox <-- лучше бы if Form1.Components[i] is TComboBox

---

ANB   (2005-07-04 17:13:00) [7]

> Application.ComponentCount
???

---

Наверх