Показать сообщение отдельно
  #1  
Старый 02.02.2011, 23:17
Мяфк Мяфк вне форума
Начинающий
 
Регистрация: 30.05.2010
Сообщения: 102
Репутация: 10
По умолчанию Массовое изменение компонентов

Здраствуйте. Возникла следующая потребность, мне надо например через цикл массово изменить свойства компонента Tedit, а именно, visible. Т.к. едитов у меня около 60 штук, получится очень долго, да и мне их не 1 раз изменять надо. Так же едиты у меня названы по разному.
1) form2.name их 9 штук, т.е. form2.name2, form2.name3....
2) form4.idl их 44.
3) form4.klv их то же 44.
Дак вот сам я честно говоря пытался сделать, к тому же использовал гугл. Но ничего кроме 1 варианта я не нашёл, там был такой вариант: Через финд компонент изменяем свойство всех Tedit, которые нашли. Но мне надо только с определёнными именами. Пытался написать такой код:
Код:
For i := 2 to 10 Do Begin
        S := '';
       e1 := FindComponent('form2.name' + IntToStr(I)) As TEdit;
       e1.Visible:=false;
Но понятно, что это не работает, а больше ничего не надумал, надеюсь на вашу помощь!
Ответить с цитированием