Последовательное создание 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--;
         }
 }
}

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@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

Решение