Текущий архив: 2006.03.19;
Скачать: CL | DM;

Вниз

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

← →
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]

Псибки

---

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

Текущий архив: 2006.03.19;
Скачать: CL | DM;

Наверх

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