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

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

Перебор компонетнов на форме и установка свойств для них [D7, Win2k, WinXP]

OlegM ©   (2005-09-21 09:18:00) 

Привет всем!
Вот на пример на форме 30 ComboBox.

Делать например

ComboBox1.Clear;
ComoboBox1.Items.LoadFromStream(S);

Для каждого из них как-то неохота, можно ли перебрать их все и сделать такой код для каждого? и как если можно.

---

OlegM   (2005-09-21 11:36:00) [1]

Псибки

---

umbra   (2005-09-21 11:13:00) [2]


{.........................................}
procedure ReNew(parent: TWinControl);
var
i: integer;

begin
for i:=0 to parent.ControlCount - 1 do
if parent.Controls[i] is TComboBox then
begin
(parent.Controls[i] as TComboBox).Clear;
(parent.Controls[i] as TComboBox).Items.LoadFromStream(S);
end;
end;


---

Наверх