Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
1 / 1 / 2
Регистрация: 18.05.2015
Сообщений: 79

Присвоение нескольким компонентам формы одного и того же значения

26.12.2015, 20:59. Показов 1725. Ответов 20
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно упростить код. Как это можно сделать?
Вот сам код.
C++
1
2
3
4
5
6
7
8
9
10
11
12
    Form4->Label1->Visible=False;
    Form4->Label1->Enabled=False;
    Form4->Label2->Visible=False;
    Form4->Label2->Enabled=False;
    Form4->Label3->Visible=False;
    Form4->Label3->Enabled=False;
    Form4->Label4->Visible=False;
    Form4->Label4->Enabled=False;
    Form4->Label5->Visible=False;
    Form4->Label5->Enabled=False;
    Form4->Label6->Visible=False;
    Form4->Label6->Enabled=False;
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
26.12.2015, 20:59
Ответы с готовыми решениями:

Присвоение одного значения нескольким переменным сразу
Всем привет! Подскажите, пожалуйста. Такая проблема: есть несколько переменных, и одно значение, актуальное для них всех. Можно ли одной...

Присвоить одно значение нескольким компонентам формы выборочно
Например у меня на форме есть несколько Label, есть некое значение - пусть будет А = "БлаБла", как присвоить значение А...

Присвоение одного значения ряду переменных
ошибку выдает, а так-то очень удобно было-бы, там их штук 5 сразу обнулять надо, хочется в одной строке. i,c,c1:=0;

20
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33479 / 21577 / 8250
Регистрация: 22.10.2011
Сообщений: 37,039
Записей в блоге: 12
31.12.2015, 12:41
Лучший ответ Сообщение было отмечено DImawsasdas как решение

Решение

Студворк — интернет-сервис помощи студентам
C++
1
2
3
4
5
6
7
8
for( int i = ControlCount; i--; )
    {
        if( TLabel* label  = dynamic_cast< TLabel*>(Controls[i]))
        {
            label->Enabled = (label->Tag != 1);
            label->Visible = label->Enabled;
        }
    }
Все лейблы, у которых свойство Tag выставлено в 1 скроются, остальные останутся видимыми
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.12.2015, 12:41

Присвоение значения одного поля другому с условием
стоит задача присвоить поле rating из таблицы Rating в одноименное поле rating таблицы Content при условии что url страницы в обоих...

Присвоение одного значения выделенным строкам в гриде.
Не ужели в гриде не возможно выделив несколько строк одним событием присвоить им одно значение имеется Grid VALUE1 - CODE1 - ...

Присвоение одного значения множеству ячеек в VBA
Здравствуйте! Подскажите пожалуйста как можно прописать следующие действия покороче Me.Д1_1 = 0: Me.Д1_2 = 0: Me.Д1_3 = 0: Me.Д1_4с =...

Поиск по нескольким полям одного значения
Работаю с БД MS Access. В билдере использую ADOTable. Вопрос заключается в следующем: у меня есть четыре поля с телефонами сотрудников, как...

Присвоение ячейке значения, в зависимости от того, в какой области будет находиться рисунок
Добрый день. В VBA стал разбираться недавно, пожалуйста помогите. При помощи данного кода: Sub ВыводКоординатАвтофигур() Dim...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
21
Ответ Создать тему
Новые блоги и статьи
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru