События динамически созданных объектов

@seclerik · Регистрация: 25.08.2009

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

Всем привет

Вопрос в том, как сделать отдельные события для каждой динамически созданной кнопки ?
Пока получилось только для всех одно.

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
   TButton *btn;    TPageControl *pc;   TTabSheet *ts;
//---------------------------------------------------------------------------
 
void __fastcall TForm10::FormActivate(TObject *Sender)
{
  int type,y;
  pc = new TPageControl(this);
  pc->Parent = this;
 
  Form3->Table2->First();
while (!Form3->Table2->Eof)
 { y=0;
          ts = new   TTabSheet(this);           //Динимически создаем вкладки типов
          ts->Caption = Form3->Table2->Fields->FieldByName("TypeName")->AsString;
          type = Form3->Table2->Fields->FieldByName("TovType")->AsInteger;
          ts->PageControl = pc;
          pc->TabHeight = 40;                  // -------------------------------
          pc->Font->Size=10;
          pc->Width=1500;
          pc->Height=600;
Form3->Table1->First();
while (!Form3->Table1->Eof)
 {
        if (Form3->Table1->Fields->FieldByName("TovType")->AsInteger == type)
        {
          btn = new TButton(this);
          btn->Width = 350;
          btn->Height = 40;
          btn->Parent = ts;
         btn->Left=0;
         btn->Top=(y*41);
         y++;
         btn->OnClick=tm;
        }
   Form3->Table1->Next();
 }
 
   Form3->Table2->Next();
 }
}
 
 
//---------------------------------------------------------------------------
 
 void __fastcall TForm10::tm(TObject *Sender)
{
  ShowMessage("tyojklj");
}

Кнопочки замечательно делаются, но для в том что для каждой кнопки необходимо свое событие.

Пробовал WndProc(TMessage &Msg) - по моему должен ловить всё происходящее на форме, но понятия не имею как им пользоваться, и можно ли применить для моего случая.

Помогите пожалуйста начинающему.

@Lord_Voodoo · 25.08.2009, 13:36

посмотрите, как выглядит заголовок нужного вам стандартного события, напишите свои функции и просто присваивайте нужную функцию нужному обработчику:
btn->OnClick = MyClick...
а плодить функции необязательно, т.к. с помощью Sender вы по имени можете узнать, какую кнопку нажимали, если, конечно же, будет осмысленно давать им названия...

@seclerik · 25.08.2009, 15:30 **[ТС]**

Я не могу назвать кнопку как мне нада, несколько называются а какой то ошибка: "Такое то имя "@" не может быть именем компоненты, но поидее имеда должны состоять из ID + btn.

C++
1
2
3
         ID = Form3->Table1->Fields->FieldByName("TovID")->AsInteger ;
         btn->Caption =Form3->Table1->Fields->FieldByName("TovNazv")->AsString ;
         btn->Name = ("bnt" + StrToInt(ID));

@Lord_Voodoo · 25.08.2009, 15:34

а зачем вам "@" в названии кнопки-то? используйте подчеркивание на худой конец - это так глобально?

@seclerik · 25.08.2009, 15:45 **[ТС]**

http://albums.foto.tut.by/user... 907126.jpg

Добавлено через 2 минуты
из картинки видно что "btn" + ID которое = 8, должно получится "btn8" а получилось "klj"

@Lord_Voodoo · 25.08.2009, 15:45

так в чем проблема-то? что-то иллюстрация ничего вразумительного не показывает

@seclerik · 25.08.2009, 15:47 **[ТС]**

проделал пошагово до ошибки и обнаружил что когда ID = 15 btn->name: {@}

@Lord_Voodoo · 25.08.2009, 15:48

ну вообще тебе надо IntToStr(ID), хотя это не объясняет такого странного поведения кода

@seclerik · 25.08.2009, 15:57 **[ТС]**

даже если присваивать каждой вновь создаваемой кнопке имя, то еще нужно что бы при нажатии на эти выполнялось все событие, вернее не свое а передавались параметры, мы нажимаем на кнопку имя которой знаем, извлекаем из нее это ID и все хорошо

это мои скромные планы

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

перепутал

@Lord_Voodoo · 25.08.2009, 16:01

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

даже если присваивать каждой вновь создаваемой кнопке имя, то еще нужно что бы при нажатии на эти выполнялось все событие, вернее не свое а передавались параметры, мы нажимаем на кнопку имя которой знаем, извлекаем из нее это ID и все хорошо

ну так для этого и делается событие OnClick и осмысленное название кнопок, чтобы из навания нужную инфу вытянуть... но у вас же проблема именно в том, что название формируется загадочное какое-то...

@seclerik · 25.08.2009, 16:04 **[ТС]**

все работает, присвоили имена динамически созданным кнопкам, дальше нужно придуть обработчик для каждой кнопки.
В cpp файле по нажатию книпки вызываем метод tm

C++
1
btn->OnClick=tm;

C++
1
2
3
4
void __fastcall TForm10::tm(TObject *Sender)
{
  ShowMessage(btn->Name);
}

я думал у каждой кнопки есть имя а ShowMessage показывает имя последней сознанной, так как обратится к имени нажатой ?

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

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

ну так для этого и делается событие OnClick и осмысленное название кнопок, чтобы из навания нужную инфу вытянуть... но у вас же проблема именно в том, что название формируется загадочное какое-то...

уже нет, все было из-за StrToInt

@Lord_Voodoo · 25.08.2009, 16:09

ну я же говорил, что нужно использовать sender:
((TButton*) Sender)->Name

@seclerik · 25.08.2009, 16:17 **[ТС]**

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

ну я же говорил, что нужно использовать sender:
((TButton*) Sender)->Name

Спасибо огромное добры человек

@seclerik · 26.08.2009, 12:03 **[ТС]**

дело такое, есть метод

C++
1
2
3
4
5
 void __fastcall TForm10::tm(TObject *Sender)
{    
Form11->Show();
// куча расчетов, часть данный берется из этой самой Form11
....

появляется форма и проводятся расчеты, все бы хорошо но надо сначала тыкнуть на OK Form11 а потом дальше проводить расчеты

может как то можно

C++
1
2
3
4
 void __fastcall TForm10::tm(TObject *Sender)
{    
Form11->Show(); 
здесь приостановить работу программы, а далее после нажатия кнопки на форме11 продолжать выполнение метода

@Lord_Voodoo · 26.08.2009, 12:38

Form11->ShowModal();

@seclerik · 26.08.2009, 12:46 **[ТС]**

все так просто а я уже пол интернета перерыл

спасибки

@АНК · 30.08.2009, 17:37

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

даже если присваивать каждой вновь создаваемой кнопке имя, то еще нужно что бы при нажатии на эти выполнялось все событие, вернее не свое а передавались параметры, мы нажимаем на кнопку имя которой знаем, извлекаем из нее это ID и все хорошо

Да пусть при динамическом создании кнопке присваивается какое угодно имя (может не быть ни какого). Главное - это правильное ID. А раз так присваиваем ID Tag’у кнопки и всё! А в обработчике:

C++
1
2
3
4
void __fastcall TForm10::tm(TObject *Sender)
{
    ShowMessage("ID="+IntToStr(((TButton*)Sender)->Tag));
}

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	25.08.2009, 13:36
	посмотрите, как выглядит заголовок нужного вам стандартного события, напишите свои функции и просто присваивайте нужную функцию нужному обработчику: btn->OnClick = MyClick... а плодить функции необязательно, т.к. с помощью Sender вы по имени можете узнать, какую кнопку нажимали, если, конечно же, будет осмысленно давать им названия... 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	25.08.2009, 15:34
	а зачем вам "@" в названии кнопки-то? используйте подчеркивание на худой конец - это так глобально? 0

@seclerik 0 / 0 / 0 Регистрация: 25.08.2009 Сообщений: 12
	25.08.2009, 15:45 [ТС]
	http://albums.foto.tut.by/user... 907126.jpg Добавлено через 2 минуты из картинки видно что "btn" + ID которое = 8, должно получится "btn8" а получилось "klj" 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	25.08.2009, 15:45
	так в чем проблема-то? что-то иллюстрация ничего вразумительного не показывает 0

@seclerik 0 / 0 / 0 Регистрация: 25.08.2009 Сообщений: 12
	25.08.2009, 15:47 [ТС]
	проделал пошагово до ошибки и обнаружил что когда ID = 15 btn->name: {@} 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	25.08.2009, 15:48
	ну вообще тебе надо IntToStr(ID), хотя это не объясняет такого странного поведения кода 0

@seclerik 0 / 0 / 0 Регистрация: 25.08.2009 Сообщений: 12
	25.08.2009, 15:57 [ТС]
	даже если присваивать каждой вновь создаваемой кнопке имя, то еще нужно что бы при нажатии на эти выполнялось все событие, вернее не свое а передавались параметры, мы нажимаем на кнопку имя которой знаем, извлекаем из нее это ID и все хорошо это мои скромные планы Добавлено через 4 минуты перепутал 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	25.08.2009, 16:09
	ну я же говорил, что нужно использовать sender: ((TButton*) Sender)->Name 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	26.08.2009, 12:38
	Form11->ShowModal(); 1

@seclerik 0 / 0 / 0 Регистрация: 25.08.2009 Сообщений: 12
	26.08.2009, 12:46 [ТС]
	все так просто а я уже пол интернета перерыл спасибки 0