Программно изменить свойства группы объектов на форме

@DrMcSheen · Регистрация: 25.05.2009

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

Допустим, есть у меня на форме сотня шейпов Shape1...Shape100.
Как программно поменять, например, цвет шейпов от 5-го до 89-го?

C++
1
2
3
4
5
Shape5->Brush->Color=100;
Shape6->Brush->Color=100;
.................
Shape88->Brush->Color=100;
Shape89->Brush->Color=100;

Так ведь задолбаешься!
Может через for сделать, как тогда имя передавать?
Shape[5] - не принимает, такое имя присвоить не даёт.
Есть какие мысли?

@Lord_Voodoo · 03.12.2009, 10:07

DrMcSheen, да что сложно, цикл по ComponentCount и функция FindComponent вам все найдет

@DrMcSheen · 03.12.2009, 11:29 **[ТС]**

Поиск по ComponentCount выдал тему
А то я не знал по каким словам искать.
Спасибо.

AntonChik · 03.12.2009, 11:59

ну надо полагать по одному единственному слову: TShape

@DrMcSheen · 03.12.2009, 12:28 **[ТС]**

А как получить имя шейпа, из которого былы вызвана фунция?
В смысле, по нажатию на шейп вызывается функция. Одна и та же по всем шейпам.
Sender как юзать?

@Lord_Voodoo · 03.12.2009, 12:35

DrMcSheen, это же тоже просто, приведением типов... можно привести к TShape, либо к TComponent, если вам надо только имя

@DrMcSheen · 03.12.2009, 12:56 **[ТС]**

Не надо никого приводить! Никаких привидений! Каких-то типов.

Я сам буду искать!
А можно пример?

@Lord_Voodoo · 03.12.2009, 13:07

((TComponent*)Sender)->Name
или
(dynamic_cast<TComponent*>(Sender))->Name

@DrMcSheen · 03.12.2009, 13:59 **[ТС]**

Нифига не получается.

C++
1
dynamic_cast<TComponent*>(Sender)->Name->Brush->Color=100;

Не могу я этих типов привести

@Lord_Voodoo · 03.12.2009, 14:08

DrMcSheen, а что вы делаете? вы же просили узнать имя... а вы пытаетесь в AnsiString найти свойство Brush - свежее решение...
(dynamic_cast<TTShape*>(Sender))->Brush->Color=100;

@DrMcSheen · 03.12.2009, 14:17 **[ТС]**

Как всё сложно!

А где всё это написано, а? Сам ведь в жизни не догадаешься.
Так работает:

C++
1
2
 ((TShape*)Sender)->Pen->Width = 3;
 (dynamic_cast<TShape*>(Sender))->Brush->Color=100;

Ещё раз спасибо.

@gorin · 25.01.2010, 21:10

Ребята как можно запрограмировать два Shape так чтоби рисовало Описаное коло в квадрате?

Добавлено через 20 минут
может ктото подскажет как можно зделать это?

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	03.12.2009, 10:07
	DrMcSheen, да что сложно, цикл по ComponentCount и функция FindComponent вам все найдет 2

@DrMcSheen 62 / 63 / 3 Регистрация: 25.05.2009 Сообщений: 520
	03.12.2009, 11:29 [ТС]
	Поиск по ComponentCount выдал тему А то я не знал по каким словам искать. Спасибо. 0

AntonChik 1090 / 588 / 121 Регистрация: 11.11.2008 Сообщений: 1,544
	03.12.2009, 11:59
	ну надо полагать по одному единственному слову: TShape 0

@DrMcSheen 62 / 63 / 3 Регистрация: 25.05.2009 Сообщений: 520
	03.12.2009, 12:28 [ТС]
	А как получить имя шейпа, из которого былы вызвана фунция? В смысле, по нажатию на шейп вызывается функция. Одна и та же по всем шейпам. Sender как юзать? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	03.12.2009, 12:35
	DrMcSheen, это же тоже просто, приведением типов... можно привести к TShape, либо к TComponent, если вам надо только имя 0

@DrMcSheen 62 / 63 / 3 Регистрация: 25.05.2009 Сообщений: 520
	03.12.2009, 12:56 [ТС]
	Не надо никого приводить! Никаких привидений! Каких-то типов. Я сам буду искать! А можно пример? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	03.12.2009, 13:07
	((TComponent)Sender)->Name или (dynamic_cast<TComponent>(Sender))->Name 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	03.12.2009, 14:08
	DrMcSheen, а что вы делаете? вы же просили узнать имя... а вы пытаетесь в AnsiString найти свойство Brush - свежее решение... (dynamic_cast<TTShape*>(Sender))->Brush->Color=100; 1

@gorin 209 / 16 / 4 Регистрация: 18.08.2009 Сообщений: 571
	25.01.2010, 21:10
	Ребята как можно запрограмировать два Shape так чтоби рисовало Описаное коло в квадрате? Добавлено через 20 минут может ктото подскажет как можно зделать это? 0