Получить доступ к компонентам другой формы

@El Fuego · Регистрация: 07.12.2009

Студворк — интернет-сервис помощи студентам

Доброго дня! Столкнулся с небольшой проблемой. При вызове модальной формы, пытаюсь получить доступ до компонентов этой формы, чтобы изменить их свойства. Доступ получаю, но свойства не меняются. Не подскажите, где может ошибка?

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::N9Click(TObject *Sender)
{
Application->CreateForm(__classid(TForm6), &Form6);
for(int i = 0; i < ComponentCount; i++)
{
TLabel *label;
label = dynamic_cast<TLabel*>(Components[i]);
if(label) label->Visible = false;
}
Form6->ShowModal();
}

@radiohobbyt · 20.03.2010, 10:45

TLabel *label;
убери из цикла. а то создаешь новую переменную много раз.

@El Fuego · 20.03.2010, 11:38 **[ТС]**

Сообщение от radiohobbyt

TLabel *label;
убери из цикла. а то создаешь новую переменную много раз.

она как раз таки и нужна, чтобы все лэйблы сделать невидимыми и если убрать, то ругается, что переменная label не определена.

@Lord_Voodoo · 20.03.2010, 11:48

El Fuego, это конечно все весело, только вы ищите лейбы в форме, откуда вызываете 6-ую форму... и еще неплохо бы узнать класс компонента, а не все подряд приводить к лейбам

@El Fuego · 20.03.2010, 12:09 **[ТС]**

Сообщение от Lord_Voodoo

El Fuego, это конечно все весело, только вы ищите лейбы в форме, откуда вызываете 6-ую форму... и еще неплохо бы узнать класс компонента, а не все подряд приводить к лейбам

Я же говорю где то ошибка. Сейчас попробую разобраться. Т.е. надо при создании самой формы указать какие компоненты должны быть загружены (видны), а какие нет. Правильно?

Evg · 20.03.2010, 12:16

Честно говоря, не очень понимаю, что делает этот код, но подозреваю, что ComponentCount и Components[i] относятся к Form1, а не Form6, как того хотелось бы. Может их нужно заменить на Form6->ComponentCount и Form6->Components[i] соответственно?

@Lord_Voodoo · 20.03.2010, 12:20

El Fuego, вы не в той форме ищете свои лейбы... перенесите поиск и установку свойств в конструтор формы 6, а еще посмотрите методы ClassNameIs и ClassName

@El Fuego · 21.03.2010, 10:19 **[ТС]**

Сообщение от Evg

Честно говоря, не очень понимаю, что делает этот код, но подозреваю, что ComponentCount и Components[i] относятся к Form1, а не Form6, как того хотелось бы. Может их нужно заменить на Form6->ComponentCount и Form6->Components[i] соответственно?

Так оно и есть.

Добавлено через 1 минуту

Сообщение от Lord_Voodoo

El Fuego, вы не в той форме ищете свои лейбы... перенесите поиск и установку свойств в конструтор формы 6, а еще посмотрите методы ClassNameIs и ClassName

Если туда поместить этот конструктор, то всё получается, а можно это сделать находясь на первой форме?

Добавлено через 4 минуты

Сообщение от Evg

Честно говоря, не очень понимаю, что делает этот код, но подозреваю, что ComponentCount и Components[i] относятся к Form1, а не Form6, как того хотелось бы. Может их нужно заменить на Form6->ComponentCount и Form6->Components[i] соответственно?

Спасибо!...я всегда говорил, что светлая голова одолеет тьму! Именно то, что я хотел.

Добавлено через 4 минуты
На самом деле это всё делаю для многослойного размещения компонентов на форме. И ещё раз спасибо всем откликнувшимся

.

Добавлено через 21 час 48 минут
А вот аналогичным способом получить доступ до компонента Image почему-то не получается. Может надо это делать статически? или всё же динамически тоже можно получить доступ?

@Lord_Voodoo · 21.03.2010, 10:34

El Fuego, код покажи

@El Fuego · 21.03.2010, 16:30 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm1::N9Click(TObject *Sender)
{
Application->CreateForm(__classid(TForm6), &Form6);
for(int i = 0; i < Form6->ComponentCount; i++)
{
TLabel* label;
label = dynamic_cast<TLabel*>(Form6->Components[i]);
if(label)
label->Visible = false;
Form6->Caption = "";
TImage* image;
image = dynamic_cast<TImage*>(Form6->Components[i]);
if (image)
image->Visible = false;
}
Form6->ShowModal();

пробовал ещё статически:

C++
1
2
3
4
5
{
 TImage1 *image;
 image=(TImage1*)Sender;
 image->Visible=false;
}

@Lord_Voodoo · 22.03.2010, 00:46

El Fuego, вообще прежде чем приведение типов делать, неплохо бы все же узнать какого класса эти компоненты... а ты трассировал этот код? про второй кусок кода я просто промолчу...

@El Fuego · 22.03.2010, 10:36 **[ТС]**

ну яж не волшебник, я только учусь...пусть методом проб и ошибок, но учусь

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@radiohobbyt 192 / 190 / 15 Регистрация: 27.01.2009 Сообщений: 548
	20.03.2010, 10:45
	TLabel *label; убери из цикла. а то создаешь новую переменную много раз. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	20.03.2010, 11:48
	El Fuego, это конечно все весело, только вы ищите лейбы в форме, откуда вызываете 6-ую форму... и еще неплохо бы узнать класс компонента, а не все подряд приводить к лейбам 0

Evg 21281 / 8305 / 637 Регистрация: 30.03.2009 Сообщений: 22,660 Записей в блоге: 30
	20.03.2010, 12:16
	Честно говоря, не очень понимаю, что делает этот код, но подозреваю, что ComponentCount и Components[i] относятся к Form1, а не Form6, как того хотелось бы. Может их нужно заменить на Form6->ComponentCount и Form6->Components[i] соответственно? 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	20.03.2010, 12:20
	El Fuego, вы не в той форме ищете свои лейбы... перенесите поиск и установку свойств в конструтор формы 6, а еще посмотрите методы ClassNameIs и ClassName 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	21.03.2010, 10:34
	El Fuego, код покажи 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	22.03.2010, 00:46
	El Fuego, вообще прежде чем приведение типов делать, неплохо бы все же узнать какого класса эти компоненты... а ты трассировал этот код? про второй кусок кода я просто промолчу... 0

@El Fuego 16 / 15 / 2 Регистрация: 07.12.2009 Сообщений: 52
	22.03.2010, 10:36 [ТС]
	ну яж не волшебник, я только учусь...пусть методом проб и ошибок, но учусь 0