Клонирование в Runtime компонента, созданного в DesignTime

@jkrnd · Регистрация: 22.12.2015

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

Всем здравствуйте.

На этапе проектирования создаётся компонент Button1, настраивается ряд его свойств.
Теперь стоит задача: при загрузке формы создать ряд из абсолютно таких же кнопок, расположенных друг под другом.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    TButton *btn[5];
    btn[0] =  Button1;
    btn[0]->Tag = 0;
    btn[0]->OnClick = BtnClick;
 
    for (int i=1;i<5;i++)
    {
        btn[i] = new TButton(this);
        btn[i]->Parent = this;
        btn[i]->Caption = Button1->Caption;
        btn[i]->Top = btn[i-1]->Top + Button1->Height + 10;
        btn[i]->Left = Button1->Left;
        btn[i]->Width = Button1->Width;
        btn[i]->Height = Button1->Height;
        btn[i]->Tag = i;
        btn[i]->OnClick = BtnClick;
    }
}

Довольно громоздко получается. А если у Button1 изменены не только размеры и заголовок...
А если кнопок не 5 а 50.
Нельзя ли одной командой присваивать все свойства Button1 очередному члену массива btn?

@nick42 · 13.11.2018, 10:38

jkrnd, нечто подобное и меня когда-то интересовало. Вот в этой теме есть вариант решения (через MemoryStream). Возможно пригодится...

@FFPowerMan · 13.11.2018, 10:50

А просто свойства скопировать - не пойдет что-ли? Ну в смысле, что берем свойства компонента времени проектирования и копируем в свойства динамически созданных компонентов. - Так не будет что-ли работать?

@D1973 · 13.11.2018, 10:58

FFPowerMan, это прямо в стартовом топике было проделано... Но, по мнению ТС-а

Сообщение от jkrnd

Довольно громоздко получается.

@volvo · 13.11.2018, 11:04

TFrame? Не, не слышал. Плевать, что он решает задачу на раз, достаточно просто его СОЗДАТЬ, и все то, что непосильным трудом было настроено в дизайнере, будет автоматически продублировано в экземпляре фрейма, мы будем добавлять тонну кода чтобы склонировать компонент...

@nick42 · 13.11.2018, 12:27

Не понимаю, где вы эту тонну увидели.
А давайте сравним, - мои тонны__

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
  TMemoryStream *sLeds = new TMemoryStream;
   sLeds->WriteComponent(Shape99);
   delete Shape99;
   for (int i=0;i<10;i++)   /* TShape *led[10] */
   {
     led[i] = new TShape(Form1);
     led[i]->Parent = Form1;
     sLeds->Position = 0;
     sLeds->ReadComponent(led[i]);
     led[i]->Left=160+i*28;
     led[i]->Name="mLed"+IntToStr(1+i);
   }
   delete sLeds;

и ваш новенький с иголочки фрейм (плюс два его файла, как я понимаю - cpp и h дополнительно).
(Мне действительно интересно, потому что практически с ними не работал, ... не проникся в своё время).

@jkrnd · 13.11.2018, 12:36 **[ТС]**

nick42, можно проект с примером выложить где на форме при проектировании создаётся один Shape (образец), а после старта проекта мы видим вертикальную полоску из 10-ти его клонов.

@volvo · 13.11.2018, 12:38

А давайте.

C++
1
2
3
4
5
6
7
8
9
   int p = 30;
   for(int i = 0; i < 10; i++)
   {
       TFrame2 *fr = new TFrame2(this);
       fr->Name = "Tframe" + IntToStr(i);
       fr->Parent = this;
       fr->Top = (p += 25);
       fr->Left = 20;
   }

Только для начала - мой код гарантированно будет обрабатывать нажатие на кнопку, а вышеприведенный - чихать хотел на то, что на OnClick кнопки что-то там назначено, и оно тоже должно скопироваться и отработать при нажатии на кнопку-клон. Оно не работает. Будем продолжать писать велосипеды?

@jkrnd · 13.11.2018, 12:41 **[ТС]**

Сообщение от volvo

мой код

Можно пример с Вашим кодом, я не совсем понимаю о чём спор.

@jkrnd · 13.11.2018, 12:43 **[ТС]**

На всякий случай выложу картинку, поясняющую что мне нужно

@volvo · 13.11.2018, 12:51

Добавил код

P.S.

Сообщение от jkrnd

выложу картинку, поясняющую что мне нужно

Выложу картинку, получающуюся при применении фреймов:

C++
1
2
3
4
5
6
7
8
9
10
   int p = 10;
   for(int i = 0; i < 30; i++)
   {
       TFrame2 *fr = new TFrame2(this, i); // переопределенный конструктор фрейма, принимающий дополнительно целое число
       fr->Name = "Tframe" + IntToStr(i);
       fr->Parent = this;
       fr->Top = (p += 27);
       fr->Left = i < 15 ? 20 : 350;
       if(i == 14) p = 10;
   }

@jkrnd · 13.11.2018, 13:07 **[ТС]**

volvo, Добавил Frame2 (New Frame). Подключил к форме:

C++
1
2
#include "Unit1.h"
#include "Unit2.h"

Добавил на форму кнопку:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    int p = 30;
    for(int i = 0; i < 10; i++)
    {
        TFrame2 *fr = new TFrame2(this);
        fr->Name = "Tframe" + IntToStr(i);
        fr->Parent = this;
        fr->Top = (p += 25);
        fr->Left = 20;
    }   
}

кликаю, ничего не происходит

@nick42 · 13.11.2018, 13:13

Сообщение от jkrnd

nick42, можно проект с примером

Пожалуйста. По двойному щелчку на форме создается клавиатура по кнопке-образцу

@volvo · 13.11.2018, 13:14

Не по теме:

Какая-то кошачья разборка :)

Вот проект, который использовался в 11-ом посте:

@jkrnd · 13.11.2018, 13:29 **[ТС]**

volvo, похоже это то, что мне нужно. (Никогда не использовал Frame).

Добавлено через 7 минут
Frame - это фрагмент формы без бордюра, который можно дублировать. У меня всё построено на работе с массивами компонентов. Как и где их теперь создавать?

@volvo · 13.11.2018, 13:31

Сделай массив фреймов, и работай с ним

@nick42 · 13.11.2018, 13:54

Сообщение от jkrnd

У меня всё построено на работе с массивами компонентов

jkrnd, можно еще выделить "коллектив" компонентов и определить его как новый компонент - Component-Create Component Template. Не пробовал? Правда, это годится только для дизайн-режима и для динамически создаваемых не подойдет.

@jkrnd · 13.11.2018, 14:25 **[ТС]**

Сообщение от volvo

Сделай массив фреймов

на фрейме метка lblChan и одно окно редактирования edDescr

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
TForm1 *Form1;
TFrame2 *fr[25];
//================================================================================================================================================
 
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    int top = -29;
    const int left = 10;
    const int ystep = 29;
 
    for(int i = 0; i < 25; i++)
    {
        fr[i] = new TFrame2(this);
        fr[i]->Name = "Tframe" + IntToStr(i);
        fr[i]->Parent = this;
        fr[i]->Top = (top += ystep);
        fr[i]->lblChan->Caption = IntToStr(i);
        fr[i]->Left = left;
    }
 
}

как теперь узнать к какому фрeйму я обратился в следующем обработчике события:

C++
1
2
3
4
void __fastcall TFrame2::edDescrChange(TObject *Sender)
{
//....
}

Мне нужно присвоить содержимое edDescr переменной String с таким же индексом, что и фрейм.
И наоборот, при загрузке формы это окно редактирования должно инициализироваться переменной String с таким же индексом, что и фрейм.
Пусть это будет

C++
1
String s[25]

@volvo · 13.11.2018, 14:37

имя фрейма получается так:

C++
1
2
3
4
void __fastcall TFrame2::edDescrChange(TObject *Sender)
{
    String frame_name = static_cast<TControl*>(Sender)->Parent->Name;
}

, но можно получать и сразу индекс, зная что он хранится в lblChan того же фрейма:

C++
1
    int index = static_cast<TFrame2*>(static_cast<TControl*>(Sender)->Parent)->lblChan->Caption.ToInt();

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

Сообщение от jkrnd

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

А для этого нужно просто в конструкторе добавить:

C++
1
    edDescr->Text = S[index]; // index - это второй параметр конструктора в данном случае

@jkrnd · 13.11.2018, 14:42 **[ТС]**

volvo, всё понял, спасибо. Надеюсь видимость переменных в модулях фреймов, аналогична как в модулях формы и классы перехватчики подсоединяются также.

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	13.11.2018, 10:38
	Сообщение было отмечено jkrnd как решение Решение jkrnd, нечто подобное и меня когда-то интересовало. Вот в этой теме есть вариант решения (через MemoryStream). Возможно пригодится... 1

@FFPowerMan 2156 / 1236 / 508 Регистрация: 11.10.2018 Сообщений: 6,240
	13.11.2018, 10:50
	А просто свойства скопировать - не пойдет что-ли? Ну в смысле, что берем свойства компонента времени проектирования и копируем в свойства динамически созданных компонентов. - Так не будет что-ли работать? 1

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	13.11.2018, 11:04
	TFrame? Не, не слышал. Плевать, что он решает задачу на раз, достаточно просто его СОЗДАТЬ, и все то, что непосильным трудом было настроено в дизайнере, будет автоматически продублировано в экземпляре фрейма, мы будем добавлять тонну кода чтобы склонировать компонент... 1

@jkrnd 179 / 69 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	13.11.2018, 12:36 [ТС]
	nick42, можно проект с примером выложить где на форме при проектировании создаётся один Shape (образец), а после старта проекта мы видим вертикальную полоску из 10-ти его клонов. 0

@jkrnd 179 / 69 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	13.11.2018, 12:43 [ТС]
	На всякий случай выложу картинку, поясняющую что мне нужно Миниатюры 0

@jkrnd 179 / 69 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	13.11.2018, 13:29 [ТС]
	volvo, похоже это то, что мне нужно. (Никогда не использовал Frame). Добавлено через 7 минут Frame - это фрагмент формы без бордюра, который можно дублировать. У меня всё построено на работе с массивами компонентов. Как и где их теперь создавать? 0

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	13.11.2018, 13:31
	Сделай массив фреймов, и работай с ним 1

@jkrnd 179 / 69 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	13.11.2018, 14:42 [ТС]
	volvo, всё понял, спасибо. Надеюсь видимость переменных в модулях фреймов, аналогична как в модулях формы и классы перехватчики подсоединяются также. 0

Клонирование в Runtime компонента, созданного в DesignTime

Решение