В цикле закрасить произвольное количество 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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

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

	В цикле закрасить произвольное количество Shape 03.03.2013, 20:05. Показов 1528. Ответов 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 Супер-модератор 33400 / 21510 / 8236 Регистрация: 22.10.2011 Сообщений: 36,907 Записей в блоге: 12
	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