Форум: "Компоненты";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];
ВнизПеребор компонетнов на форме и установка свойств для них Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c