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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@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