Перебор компонетнов на форме и установка свойств для них

← →
OlegM (2005-09-21 09:18) [0]

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

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

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

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

← →
umbra © (2005-09-21 11:13) [1]

{.........................................} 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;

← →
OlegM (2005-09-21 11:36) [2]

Псибки

Перебор компонетнов на форме и установка свойств для них Найти похожие ветки