Последовательное создание Edit при нажатие на button

@INSULIN · Регистрация: 13.07.2014

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

Помогите достроить программу для перехода на следующий Edit без продолжение копии. Я хочу что при каждом нажатии на Button появлялся компонент Edit. у меня сразу 6 Edit ов выходят, а надо последовательно.
Вот это как выглядит:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
if (Button1->Enabled == true) {
int iEdit1, eEdit1;
 
  for (int eEdit1 = 0; eEdit1 < 20; eEdit1++) {
   eEdit1 = Top - 100;
    do {
    for (int iEdit1 = 0; iEdit1 < 6; iEdit1++) {
 
     TEdit *iEdit1 = new TEdit(this);
      iEdit1->Parent = this;
 
 
      iEdit1->Left = iEdit1->Left + 3 + eEdit1;
      iEdit1->Height = iEdit1->Height + 2;
      iEdit1->Width = iEdit1->Width + 2;
      iEdit1->Top  = iEdit1->Top + 20;
      int a,b,c;
      a = iEdit1->Left;
      b = iEdit1->Height;
      c = (a+74)+b;
      eEdit1 = c;
      iEdit1->SetFocus();
      }
      }
      while (iEdit1<6);
      system("pause");
   }
 
   }
 
}

@Sasha · 27.03.2015, 14:15

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int i,d;
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
 i = 1;
 d = 2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
      TEdit *iEdit = new TEdit(this);
      iEdit->Parent = this;
      iEdit->Name = "Edit"+AnsiString(i);
      iEdit->Left =  3;
      iEdit->Height = 21;
      iEdit->Width =  121;
      iEdit->Top  = d;
      i++;
      d+=30;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    for (int i = 0; i < Form1->ComponentCount; i++)
 {
        if (Form1->Components[i]->ClassNameIs("TEdit"))
         {
             delete Form1->Components[i];
             i--;
         }
 }
}
//---------------------------------------------------------------------------

@INSULIN · 27.03.2015, 16:26 **[ТС]**

Спасибо Sasha человеческое. Мне очень помогло, понял свою ошибку.

Добавлено через 4 минуты
А как можно чтоб допустим, если количество Edit ов дошло до 10, затем также с другой боковой строки начался отчет? Тоесть заполнив одну строку перешло к другой. Спасибо за внимания

@Sasha · 27.03.2015, 18:38

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int i,d,c;
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
 i = 1;
 d = 2;
 c = d;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
      TEdit *iEdit = new TEdit(this);
      iEdit->Parent = this;
      iEdit->Name = "Edit"+AnsiString(i);
      iEdit->Height = 21;
      iEdit->Width =  121;
      if(i>10)
     {
      iEdit->Left = 125;
      iEdit->Top = c;
      c+=30;
     }
     else
     {
      iEdit->Left =  3;
      iEdit->Top  = d;
      d+=30;
     }
      i++;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
for (int i = 0; i < Form2->ComponentCount; i++)
 {
        if (Form2->Components[i]->ClassNameIs("TEdit"))
         {
             delete Form2->Components[i];
             i--;
         }
 }
}
//---------------------------------------------------------------------------

@INSULIN · 27.03.2015, 21:27 **[ТС]**

Благодарен Sasha. Ты мне помог достроить долгожданный проект

@INSULIN · 02.04.2015, 08:35 **[ТС]**

Добавлено через 8 минут
Sasha помоги еще разок дорешить. С переходом через SetFocus на новый появившийся iEdit при нажатии Enter не прет, только кликами на форму можно размножать и дать SetFocus. Без SetFocus все отлично работает

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key == 13) {
 
TEdit *iEdit = new TEdit(this);
iEdit->Parent = this;
iEdit->Name = "Edit"+AnsiString(i);
iEdit->Text = "";
iEdit->Height = 20;
iEdit->Width = 90;
iEdit->SetFocus();
 
if (i>9)
{
iEdit->Left = 15;
iEdit->Left = c;
iEdit->Top = 30;
c+=95;
i++;
}
else
{
iEdit->Left = 0;
iEdit->Left = d;
iEdit->Top = 10;
d+=95;
 
}
i++;
}
 
}

@nick42 · 02.04.2015, 08:41

потому что этот обработчик "работает" только когда фокус на форме; если у другого контрола - нужен соотв. обработчик для него, но правильнее будет назначить всем создаваемым эдитам общий обработчик нажатия клавиши, а его поведение настроить в зависимости от значений параметров Sender и, возможно, Shift.

@Sasha · 02.04.2015, 10:53

INSULIN, не совсем понял вопрос, ты хочешь чтобы при нажатии на клавишу Enter у тебя создавался новый Edit?

@INSULIN · 03.04.2015, 10:28 **[ТС]**

Nick42 Я пробовал разложить не сколько компонентов в 4 строки и скрыть. При нажатие на баттон целая строка компонентов была видна. И с фокусом не были проюлемы. Переходы проходили отлично, но пока все это дорабатовал целую книгу кодов приходилось писать.

Добавлено через 18 часов 11 минут
Sasha, Эдит у меня создается при нажатии, только при втором нажатии второй эдит не появляется. Вот когда убераю переход в фокус, появляютс все эдиты один за другим и дальше все отлично работает. Я хочу чтоб при нажатии на Энтер появлялся Эдит и в Эдит Сетфокус, дальше при нажатии второй раз на Энтер появился второй Эдит тоже так же с переходом СетФокуса.

@SatanaXIII · 03.04.2015, 11:01

"Я хочу чтоб при нажатии на Энтер появлялся Эдит и в Эдит Сетфокус, дальше при нажатии второй раз на Энтер сначала убирать фокус с Эдита (переводить, к примеру, на форму), а потом появился второй Эдит тоже так же с переходом СетФокуса"

@Sasha · 10.04.2015, 09:07

Пробуй так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int i,d,c;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
 
{
  switch(Key)
  {
      case VK_RETURN:
      NewEd();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 i = 1;
 d = 2;
 c = d;
 Form1->KeyPreview = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewEd()
{
      TEdit *iEdit = new TEdit(this);
      iEdit->Parent = this;
      iEdit->Name = "Edit"+AnsiString(i);
      iEdit->Height = 21;
      iEdit->Width =  121;
 
      if(i>10)
     {
      iEdit->Left = 125;
      iEdit->Top = c;
      c+=30;
     }
     else
     {
      iEdit->Left =  3;
      iEdit->Top  = d;
      d+=30;
     }
      i++;
     iEdit->Clear();
     iEdit->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
for (int i = 0; i < Form1->ComponentCount; i++)
 {
        if (Form1->Components[i]->ClassNameIs("TEdit"))
         {
             delete Form1->Components[i];
             i--;
         }
 }
}
//---------------------------------------------------------------------------

@INSULIN · 12.04.2015, 14:05 **[ТС]**

Спасибо Саша все получилось

@Sasha · 02.05.2015, 23:14

INSULIN, исправь удаление на вот этот код

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 
 for (int i = 0; i < Panel1->ControlCount; i++)
 {
       if ((String)Panel1->Controls[i]->ClassName() == L"TEdit")
         {
             delete Panel1->Controls[i];
             i--;
         }
 }
}

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@INSULIN 0 / 0 / 0 Регистрация: 13.07.2014 Сообщений: 54
	27.03.2015, 16:26 [ТС]
	Спасибо Sasha человеческое. Мне очень помогло, понял свою ошибку. Добавлено через 4 минуты А как можно чтоб допустим, если количество Edit ов дошло до 10, затем также с другой боковой строки начался отчет? Тоесть заполнив одну строку перешло к другой. Спасибо за внимания 0

@INSULIN 0 / 0 / 0 Регистрация: 13.07.2014 Сообщений: 54
	27.03.2015, 21:27 [ТС]
	Благодарен Sasha. Ты мне помог достроить долгожданный проект 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	02.04.2015, 08:41
	потому что этот обработчик "работает" только когда фокус на форме; если у другого контрола - нужен соотв. обработчик для него, но правильнее будет назначить всем создаваемым эдитам общий обработчик нажатия клавиши, а его поведение настроить в зависимости от значений параметров Sender и, возможно, Shift. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	02.04.2015, 10:53
	INSULIN, не совсем понял вопрос, ты хочешь чтобы при нажатии на клавишу Enter у тебя создавался новый Edit? 0

@INSULIN 0 / 0 / 0 Регистрация: 13.07.2014 Сообщений: 54
	03.04.2015, 10:28 [ТС]
	Nick42 Я пробовал разложить не сколько компонентов в 4 строки и скрыть. При нажатие на баттон целая строка компонентов была видна. И с фокусом не были проюлемы. Переходы проходили отлично, но пока все это дорабатовал целую книгу кодов приходилось писать. Добавлено через 18 часов 11 минут Sasha, Эдит у меня создается при нажатии, только при втором нажатии второй эдит не появляется. Вот когда убераю переход в фокус, появляютс все эдиты один за другим и дальше все отлично работает. Я хочу чтоб при нажатии на Энтер появлялся Эдит и в Эдит Сетфокус, дальше при нажатии второй раз на Энтер появился второй Эдит тоже так же с переходом СетФокуса. 0

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	03.04.2015, 11:01
	"Я хочу чтоб при нажатии на Энтер появлялся Эдит и в Эдит Сетфокус, дальше при нажатии второй раз на Энтер сначала убирать фокус с Эдита (переводить, к примеру, на форму), а потом появился второй Эдит тоже так же с переходом СетФокуса" 0

@INSULIN 0 / 0 / 0 Регистрация: 13.07.2014 Сообщений: 54
	12.04.2015, 14:05 [ТС]
	Спасибо Саша все получилось 0

Последовательное создание Edit при нажатие на button

Решение