Работа с несколькими компонентами

← →
vigo (2005-07-04 17:10) [0]

Добрый день!
На форме несколько combobox"ов и пытаюсь вписать в процедуру FormShow перевод значений combobox"ов в начальное:
for i := 1 to Application.ComponentCount-1 do
if Form1.Components[i].ClassType = TComboBox
then TComboBox(Sender).ItemIndex := 0;
на ошибку не ругается, но ничего не меняется...
как можно одновременно поменять значения нескольких компонентов не расписывая по каждой...

← →
ANB © (2005-07-04 17:13) [1]

> Application.ComponentCount
???

← →
Чапаев © (2005-07-04 17:17) [2]

if Form1.Components[i].ClassType = TComboBox <-- лучше бы if Form1.Components[i] is TComboBox

← →
vigo (2005-07-04 17:40) [3]

Чапаев ©
<-- лучше бы if Form1.Components[i] is TComboBox

Лучше бы чего-нить дельное написал (если такой умный)...

← →
TUser © (2005-07-04 17:42) [4]

И Form1 не надо указывать - это Self

for i:=0 to ComponentCount-1 do
if Components[i] if TCustomComboBox then
TCustomConmoBox(Components[i]).ItemIndex:=0;

← →
TUser © (2005-07-04 17:43) [5]

После [3] прошу модераторов мой пост удалить.

> vigo (04.07.05 17:40) [3]

1. не хами.
2. читай книжки
3. компоненты на форме принадлежат форме

← →
vigo (2005-07-04 17:49) [7]

спасибо с небольшой поправкой:
for i:=0 to ComponentCount-1 do
if Components[i].ClassType = TComboBox then
TComboBox(Components[i]).ItemIndex:=0;

Работа с несколькими компонентами Найти похожие ветки