Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.041 c
2-1141062648
redlord
2006-02-27 20:50
2006.03.19
message+ Tthread


8-1129180890
SnakeAK
2005-10-13 09:21
2006.03.19
Поворот изображения в TImage


1-1140058218
Simon
2006-02-16 05:50
2006.03.19
переменные окружения


9-1126538054
WonderfulDay
2005-09-12 19:14
2006.03.19
запаковать растры


15-1140619727
ArtemESC
2006-02-22 17:48
2006.03.19
ScanCode => Ascii