В цикле закрасить произвольное количество Shape

@БегаМ · Регистрация: 03.03.2013

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

Всем привет!
Нужен цикл по произвольному количеству элементов на форме.
Например закрасить Shape-ы, или задать Caption-ны для кнопок.
Главное как указать имена этих элементов. Никак не получается.
Спасибо!!!

@nick42 · 04.03.2013, 00:39

Аналогично вашему другому запросу. Я обычно поступаю так (хоть это и не рационально): скажем, для шейпов создаю индексированный массив: TShape *msha[10] ; присваиваю каждому элементу конкретный шэйп из созданных или создаю через new. Вероятно, для уже существующих компонентов правильнее применять конструкцию enum, но этому я пока не научился...

@БегаМ · 04.03.2013, 08:32 **[ТС]**

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

@nick42 · 04.03.2013, 10:02

Сообщение от БегаМ

я не могу в цикле указать

Я вас не понимаю; если вы присвоили элементу массива MyShapes[4] существующий на форме Shape7, то код в цикле MyShapes[i]->Brush->Color = clBlue; при i=4 закрасит Shape7 в синий цвет, как если бы вы написали Shape7->Brush->Color = clBlue; .

@БегаМ · 04.03.2013, 12:37 **[ТС]**

Странно, вроде подобный код я пробовал, ща гляну.
Вот мой код

C#
1
2
3
4
5
6
7
8
9
10
TShape *MyShapes[10];
 
 for (int i=0; i<9; i++) {
  MyShapes[i] = new TShape(this);
 }
 
 for (int i=0; i<9; i++)
 {
  MyShapes[i]->Brush->Color = clBlue;
 }

Добавлено через 1 минуту
При нажатии на кнопку вот такой код прописан. Но реакции нет.

Добавлено через 10 секунд
nick42,

@nick42 · 04.03.2013, 14:13

Если я разбросаю по форме с десяток шейпов и затем напишу TShape *MyShapes[10]; MyShapes[0]=Shape1; - я тем самым просто ассоциирую существующий шейп с элементом массива; здесь ничего не создается. Если же я создаю новые шейпы в массиве (через оператор new), то я должен также задать "родителя" и прочие недефолтовые атрибуты каждого создаваемого элемента (габариты, цвет, размещение, имя и т.д.). У вас в цикле Parent не определен, поэтому вы их и не увидите.

@БегаМ · 04.03.2013, 17:18 **[ТС]**

nick42, А как указать в цикле не конкретное имя объекта (Shape1, Shape2, ..), а в коде указать что-то вроде

C#
1
2
3
4
5
6
TShape *MyShapes[10];
 
 for (int i=0; i<9; i++)
 {
  MyShapes[i] = Shape+i;// см. сюда ))
 }

@volvo · 04.03.2013, 17:31

Используй FindComponent("Shape" + IntToStr(i))

@БегаМ · 04.03.2013, 17:50 **[ТС]**

UI, Я хочу из базы брать потом параметры для Shape, Т.е. каждому из них будет соответствовать запись в БД с определенными параметрами.
Я хочу сделать программу как в кинотеатре. Если место занято - оно закрашивается.
)))

Добавлено через 7 минут
UI, В данном случае пишет
Cannot convert 'TComponent *' to 'TShape *'

@nick42 · 04.03.2013, 19:07

Вот так можно (как пример)__

C++
1
2
3
4
     /*  TShape *myShape[999];  */
     for(int i=0,pp=0;i<ComponentCount;i++)
       if(FindComponent("Shape"+IntToStr(i)))
         myShape[pp++] = (TShape*)FindComponent("Shape"+IntToStr(i));

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

Сообщение от БегаМ

Я хочу сделать программу как в кинотеатре

если у вас и элементов предполагается столько же, то придется автоматизировать. Как пример опять же могу предложить создание трех рядов кнопок русского алфавита на этапе создания формы__

C++
1
2
3
4
5
6
7
8
9
10
11
  AnsiString alvit = "ÀÁÂÃÄÅ¨ÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß" ;
 
  for (int i=0;i<33;i++)    // ñîçäàíèå òð¸õ ðÿäîâ êëàâèøü ...
  {
     sbut[i] = new TSpeedButton(this);
     sbut[i]->Parent = Form1;
     sbut[i]->Caption = alvit[1+i];    //  íàäïèñü íà êíîïêå
     sbut[i]->Height=44; sbut[i]->Width=44;  // óñòàíîâêà ðàçìåðîâ
     sbut[i]->Left =(48*(i%11))+64;       // âû÷èñëåíèå ãîðèç.ñìåùåíèÿ êíîïêè
     sbut[i]->Top =(48*(i/11))+272;     // âû÷èñëåíèå âåðò.ñìåùåíèÿ ðÿäà
  }

@БегаМ · 04.03.2013, 23:46 **[ТС]**

Думаю с данным кодом получится. Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .

@БегаМ 4 / 0 / 0 Регистрация: 03.03.2013 Сообщений: 7

	В цикле закрасить произвольное количество Shape 03.03.2013, 20:05. Показов 1467. Ответов 10 Метки нет (Все метки) Всем привет! Нужен цикл по произвольному количеству элементов на форме. Например закрасить Shape-ы, или задать Caption-ны для кнопок. Главное как указать имена этих элементов. Никак не получается. Спасибо!!! 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	04.03.2013, 00:39
	Аналогично вашему другому запросу. Я обычно поступаю так (хоть это и не рационально): скажем, для шейпов создаю индексированный массив: TShape msha[10] ; присваиваю каждому элементу конкретный шэйп из созданных или создаю через new. Вероятно, для уже существующих компонентов правильнее применять конструкцию enum*, но этому я пока не научился... 0

@БегаМ 4 / 0 / 0 Регистрация: 03.03.2013 Сообщений: 7
	04.03.2013, 08:32 [ТС]
	nick42, Я тоже читал про создание массива. Но я не могу в цикле указать чтоб каждый Shape брал свои свойства из этого массива 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	04.03.2013, 14:13
	Если я разбросаю по форме с десяток шейпов и затем напишу *TShape MyShapes[10]; MyShapes[0]=Shape1; - я тем самым просто ассоциирую существующий шейп с элементом массива; здесь ничего не создается. Если же я создаю новые шейпы в массиве (через оператор new**), то я должен также задать "родителя" и прочие недефолтовые атрибуты каждого создаваемого элемента (габариты, цвет, размещение, имя и т.д.). У вас в цикле Parent не определен, поэтому вы их и не увидите. 0

@volvo Супер-модератор 33169 / 21461 / 8224 Регистрация: 22.10.2011 Сообщений: 36,817 Записей в блоге: 10
	04.03.2013, 17:31
	Используй FindComponent("Shape" + IntToStr(i)) 0

@БегаМ 4 / 0 / 0 Регистрация: 03.03.2013 Сообщений: 7
	04.03.2013, 17:50 [ТС]
	UI, Я хочу из базы брать потом параметры для Shape, Т.е. каждому из них будет соответствовать запись в БД с определенными параметрами. Я хочу сделать программу как в кинотеатре. Если место занято - оно закрашивается. ))) Добавлено через 7 минут UI, В данном случае пишет Cannot convert 'TComponent ' to 'TShape ' 0

@БегаМ 4 / 0 / 0 Регистрация: 03.03.2013 Сообщений: 7
	04.03.2013, 23:46 [ТС]
	Думаю с данным кодом получится. Спасибо! 0

Опции темы