|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.01.2011, 17:47 | #1 |
Регистрация: 09.01.2011
Сообщений: 6
|
Работа с компонентами как с массивом
У меня есть 10 компонентов LabeledEdit и 1 Edit. В поле Edit пользователь вводит число от 1 до 10 и в зависимости от этого столько же первых компонентов LabeledEdit должно остаться видимыми, а остальные - невидимыми. Например, пользователь ввёл "3". Тогда
Код:
может что-то типа этого: var LabEd:array[1..10] of ....... for i:=1 to 10 do LabEd[i]:=TLabeledEdit.Create(Self); Последний раз редактировалось Stilet; 11.01.2011 в 19:07. |
11.01.2011, 18:10 | #2 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
Код:
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
11.01.2011, 19:09 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Обсуждалось уже.
Вот пример Баламута: http://www.programmersforum.ru/showthread.php?t=18194 Только там поменяй на TLabeledEdit проверяемый тип
I'm learning to live...
|
11.01.2011, 19:19 | #4 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
и пересчитывать индексы из списка Controls в индексы лейблов.. свой массив для этой задачи лучше.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
11.01.2011, 19:27 | #5 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Хотя я тебя понял, ты имеешь ввиду что автору понадобятся не все LabeledEdit а только некоторые? Ну в таком случае автору стоит пояснить подробнее, но из того что я понял вполне подойдет решение, предложенное мной. Просто твое решение предполагает заводить этот массив как-то, не думаю что автору это будет удобно.
I'm learning to live...
|
|
11.01.2011, 19:37 | #6 |
Старожил
Регистрация: 03.01.2011
Сообщений: 2,508
|
А твое решение погасит вобще все лейблы на форме, кроме первых трёх в порядке их создания. Независимо от того, где они визуально расположены, и вобще, относятся ли к тем, которые надо гасить. Хотя, может Дине это и надо )
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
|
12.01.2011, 21:17 | #7 |
Регистрация: 09.01.2011
Сообщений: 6
|
Хочу ещё показать способ, может не рациональный, но простенький...
procedure TForm1.Button5Click(Sender: TObject); var i,n:integer; label 1,2,3,4,5,6,7,8,9,10; begin labelededit1.Hide; labelededit2.Hide; labelededit3.Hide; labelededit4.Hide; labelededit5.Hide; labelededit6.Hide; labelededit7.Hide; labelededit8.Hide; labelededit9.Hide; labelededit10.Hide; n:=strtoint(Edit1.Text); for i:=1 to n do begin case i of 1: labelededit1.Show; 2: labelededit2.Show; 3: labelededit3.Show; 4: labelededit4.Show; 5: labelededit5.Show; 6: labelededit6.Show; 7: labelededit7.Show; 8: labelededit8.Show; 9: labelededit9.Show; 10: labelededit10.Show; end; end; end; |
12.01.2011, 22:20 | #8 |
Подтвердите свой е-майл
Регистрация: 19.12.2010
Сообщений: 808
|
Как любит говорить Дапкунайте - "Абальдеть !"
Подсказка : Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с динамически создаваемыми компонентами | sislexa | Общие вопросы Delphi | 23 | 30.10.2010 21:47 |
Работа с компонентами стороннего приложения | imprezident | Win Api | 1 | 30.05.2009 22:12 |
Работа с компонентами Делфи | Ainur | Помощь студентам | 2 | 22.05.2009 11:56 |
Работа с компонентами | Ky3Heu, | Общие вопросы Delphi | 2 | 24.04.2009 11:58 |
Работа с компонентами Ehlib | cherry25 | БД в Delphi | 4 | 26.02.2009 10:20 |