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

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

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

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@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