Обработка событий

@1vlad · Регистрация: 13.08.2013

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

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

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cspin"
#pragma resource "*.dfm"
TForm1 *Form1;
TButton *new_btn;
TButton *array_btn[500];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
int s;
int a;
int d;
int j;
int k;
 
j=80;
k=5;
int max = 5;
int min = 1;
 
 
if((Edit1->Text).Length()==0){
ShowMessage ("Введите значение по горизонтали");
Form1->Edit1->SetFocus();}
if((Edit2->Text).Length()==0){
ShowMessage ("Введите значение по Вертикали");
Form1->Edit2->SetFocus();}
s=StrToInt(Edit1->Text);
a=StrToInt(Edit2->Text);
d=a*s;
if ((((Edit1->Text).Length())!=0)&&(((Edit2->Text).Length())!=0)) {
 
Form1->Visible=false;
Form2->Visible=true; }
for(int i = 1; i <= d; i++)
{ k=k+30;
int r = rand()%(max - min + 1) + min;
array_btn[i] = new TButton (Form1);
array_btn[i]->Parent = Form2;
array_btn[i]->Top = k ;
array_btn[i]->Left = j;
array_btn[i]->Caption = IntToStr(r) ;
if (i%a==0){
j=j+80;
k=5;}
}
 
}
//---------------------------------------------------------------------------

@nick42 · 28.11.2013, 15:46

Вы про это?__

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::myFunc(TObject *Sender)
{
  // ...
  ShowMessage("Hello");
}
//---------------------------------------------------------------------------
   // ...
   array_btn[i]->OnClick = myFunc ;
   // ...

@1vlad · 28.11.2013, 16:08 **[ТС]**

Да,только я никогда не работал со своими классами,подскажите пожалуйста,куда void ставить и как объявить

@nick42 · 28.11.2013, 16:30

Если никогда не работали со своими классами - со временем научитесь. А пока можете на форму поместить одну кнопку в дизайн-режиме (можно ее убрать из поля формы или сделать невидимой) и на ее Events - OnClick написать нужный код (ShowMessage) в "заготовке" ButtonClick. А для вновь создаваемых кнопок -

C++
1
array_btn[i]->OnClick = ButtonClick;

Добавлено через 2 минуты
(только вдумчиво..., я написал ButtonClick, но у вас это будет Button1Click или Button2Click или SpeedButton17Click...)

@1vlad · 28.11.2013, 17:09 **[ТС]**

Спасибо,с этим разобрался,а как создать свою функцию и где ее объявить
например такую

C++
1
2
3
4
5
void __fastcall TForm1::myFunc(TObject *Sender)
{
 
  ShowMessage("Hello");
}

Просто мне надо будет использовать громоскую функцию несколько раз,ее я напишу,но как объявить,куда это объявление вставить,это я без понятия,просто только перехожу с Visual Studio на билдер и с примитивами еще не разобрался...

@_Dimon_ · 28.11.2013, 17:36

Так же, как nick42 написАл, только ручками ))
фунцию в *.cpp, а прототип в *.h в классе формы после __published:

@Kulgar · 28.11.2013, 17:45

1vlad, в ClassExplorer ПКМ на TForm > New Method...

@1vlad · 28.11.2013, 18:17 **[ТС]**

так?

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
#include <vcl.h>
#pragma hdrstop
 #include "Unit2.h"
#include "Unit1.h"
void myFunc(TObject *Sender)
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cspin"
#pragma resource "*.dfm"
 
TForm1 *Form1;
TButton *new_btn;
TButton *array_btn[500];
 
 
//-------------------
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 void myFunc()
{
 
  ShowMessage("Hello");}
void __fastcall TForm1::Button1Click(TObject *Sender)

@_Dimon_ · 28.11.2013, 20:18

1vlad, если для кнопки, то не так
для кнопки

*.cpp

C++
1
2
3
4
void __fastcall TForm1::myFunc()
 {
  ShowMessage("Hello");
 }

*.h

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    
    //...
 
    void __fastcall myFunc(); //   --------------  поставь обьявление сюда
 
 
private:    // User declarations
public:     // User declarations
//...........
};

и потом присваюй

C++
1
 array_btn[i]->OnClick = myFunc;

@SatanaXIII · 29.11.2013, 09:24

Не по теме:

Сообщение от 1vlad

перехожу с Visual Studio на билдер

Скупая отеческая слеза катится по моему лицу.

@1vlad · 29.11.2013, 16:20 **[ТС]**

Вроде все так сделал,как сказали,но выдает ошибки

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <vcl.h>
#pragma hdrstop
 #include "Unit2.h"
#include "Unit1.h"
 
 void __fastcall TForm1::myFunc()
 {
  ShowMessage("Hello");
 }
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cspin"
#pragma resource "*.dfm"
 void __fastcall TForm1::myFunc()
 {
  ShowMessage("Hello");
 }
TForm1 *Form1;
TButton *new_btn;
TButton *array_btn[500];

@Kulgar · 29.11.2013, 16:22

1vlad, не забывайте добавлять тэги на форуме; не забывайте использовать табуляцию в коде.
Как Вы описали (протопит) функцию? в каком месте?

@1vlad · 29.11.2013, 18:20 **[ТС]**

объявил так

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
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cspin"
#pragma resource "*.dfm"
 
TForm1 *Form1;
TButton *new_btn;
TButton *array_btn[500];
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
       : TForm(Owner)
{
}
class TForm1 : public TForm
{
__published:    // IDE-managed Components
 
   //...
 
    [I]void __fastcall myFunc()
 {
  ShowMessage("Hello");
 }
 
 
 
private:    // User declarations
public:     // User declarations
//...........
};

Добавлено через 1 час 4 минуты
ошибки
[C++ Error] Unit1.cpp(23): E2238 Multiple declaration for 'TForm1'
[C++ Error] Unit1.h(11): E2344 Earlier declaration of 'TForm1'
[C++ Error] Unit1.cpp(84): E2034 Cannot convert 'void (*)()' to 'void (_fastcall * (_closure )(TObject *))(TObject *)'
ругаются на этот класс

@_Dimon_ · 29.11.2013, 18:31

1vlad, ну это же ересь какая-то

перечитай вниматольно пост №9 и обрати внимание, что нужно записать в *.cpp файл, а что в *.h

Добавлено через 9 минут
в *.h файл тебе нужно вставить всего одну строчку, я просто на примере показал куда именно

@nick42 · 29.11.2013, 18:38

1vlad, вы напрасно проигнорировали совет камрада Kulgar (пост№7). Из ClassExplorer предлагается выбрать все нужные пункты прямо в визуальной панели; и записи в хэдэр-файле программа сама сделает, вам останется только посмотреть на готовое и разобраться (и запомнить на будущее, чтоб в дальнейшем писать такое "в рукопашную").

@1vlad · 29.11.2013, 18:41 **[ТС]**

Спасибо за ругань,помогло понять))
Но все равно есть ошибки.Сделал так:
в .cpp:

C++
1
2
3
4
void myFunc()
{
 
  ShowMessage("Hello");}

в .h :

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
class TForm1 : public TForm
{
__published:    // IDE-managed Components
 
    //...
 
    void __fastcall myFunc(); void __fastcall TForm1::myFunc()//   --------------  поставь обьявление сюда
 
 
private:    // User declarations
public:     // User declarations
//...........
};

ошибка :
[C++ Error] Unit1.cpp(66): E2034 Cannot convert 'void (*)()' to 'void (_fastcall * (_closure )(TObject *))(TObject *)'
на 35 строчку

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
  int s;
  int a;
  int d;
  int j;
  int k;
 
  j=80;
  k=5;
   int max = 5;
   int min = 1;
 
 
  if((Edit1->Text).Length()==0){
  ShowMessage ("Введите значение по горизонтали");
  Form1->Edit1->SetFocus();}
  if((Edit2->Text).Length()==0){
  ShowMessage ("Введите значение по Вертикали");
  Form1->Edit2->SetFocus();}
  s=StrToInt(Edit1->Text);
  a=StrToInt(Edit2->Text);
  d=a*s;
  if ((((Edit1->Text).Length())!=0)&&(((Edit2->Text).Length())!=0))  {
 
  Form1->Visible=false;
  Form2->Visible=true;                }
  for(int i = 1; i <= d; i++)
    {  k=k+30;
         int r = rand()%(max - min + 1) + min;
        array_btn[i] = new TButton (Form1);
        array_btn[i]->Parent = Form2;
        array_btn[i]->Top = k ;
        array_btn[i]->Left = j;
        array_btn[i]->Caption = IntToStr(r) ;
        if (i%a==0){
        j=j+80;
        k=5;}
        array_btn[i]->OnClick = myFunc;
                }
 
}

Комментарий модератора

Для подсветки кода используйте соответствующий тег - в окне отправки сообщений слева вверху кнопочка C++.

@_Dimon_ · 29.11.2013, 18:54

в *.h файле 5 строка
void __fastcall myFunc(); void __fastcall TForm1::myFunc()// -------------- поставь обьявление сюда

должно быть просто

void __fastcall myFunc();

@nick42 · 29.11.2013, 18:58

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

в *.h файле 5 строка
void __fastcall myFunc(); void __fastcall TForm1::myFunc()// -------------- поставь обьявление сюда

должно быть просто

void __fastcall myFunc();

у него опять будет ошибка..., - в срр-файле запись должна быть практически такой же, только добавляется имя класса:
void __fastcall TForm1::myFunc()
{
}

@1vlad · 29.11.2013, 19:15 **[ТС]**

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

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

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

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

C++
1
2
3
void __fastcall [U]TForm1::[/U]myFunc()
{
}

исправил,получилось:

C++
1
2
 void __fastcall TForm1::myFunc()
   {  ShowMessage("Hello");}

ошибки:
[C++ Error] Unit1.cpp(24): E2316 '_fastcall TForm1::myFunc()' is not a member of 'TForm1'
[C++ Error] Unit1.cpp(64): E2268 Call to undefined function 'myFunc'
[C++ Error] Unit1.cpp(64): E2034 Cannot convert 'int' to 'void (_fastcall * (_closure )(TObject *))(TObject *)'
вторая и третья ошибки на 35 строчку

@nick42 · 29.11.2013, 19:26

Если вы назначаете свою функцию типовому обработчику ButtonClick, то уже не правильно, - у того в параметрах присутствует TObject *Sender, то-есть передается указатель на кнопку, которую нажали. А в вашей функции - пусто. Непорядок. Добавьте в вашу функцию (и в .срр и в .h) такую же запись: вместо myFunc() - myFunc(TObject *Sender).

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. 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 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@1vlad 10 / 1 / 0 Регистрация: 13.08.2013 Сообщений: 70
	28.11.2013, 16:08 [ТС]
	Да,только я никогда не работал со своими классами,подскажите пожалуйста,куда void ставить и как объявить 0

@_Dimon_ 1408 / 572 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	28.11.2013, 17:36
	Так же, как nick42 написАл, только ручками )) фунцию в .cpp, а прототип в .h в классе формы после __published: 0

@Kulgar 511 / 196 / 26 Регистрация: 07.08.2013 Сообщений: 814
	28.11.2013, 17:45
	1vlad, в ClassExplorer ПКМ на TForm > New Method... 1

@Kulgar 511 / 196 / 26 Регистрация: 07.08.2013 Сообщений: 814
	29.11.2013, 16:22
	1vlad, не забывайте добавлять тэги на форуме; не забывайте использовать табуляцию в коде. Как Вы описали (протопит) функцию? в каком месте? 1

@_Dimon_ 1408 / 572 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	29.11.2013, 18:31
	1vlad, ну это же ересь какая-то перечитай вниматольно пост №9 и обрати внимание, что нужно записать в .cpp файл, а что в .h Добавлено через 9 минут в *.h файл тебе нужно вставить всего одну строчку, я просто на примере показал куда именно 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	29.11.2013, 18:38
	1vlad, вы напрасно проигнорировали совет камрада Kulgar (пост№7). Из ClassExplorer предлагается выбрать все нужные пункты прямо в визуальной панели; и записи в хэдэр-файле программа сама сделает, вам останется только посмотреть на готовое и разобраться (и запомнить на будущее, чтоб в дальнейшем писать такое "в рукопашную"). 2

@_Dimon_ 1408 / 572 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	29.11.2013, 18:54
	в .h файле 5 строка void __fastcall myFunc(); void __fastcall TForm1::myFunc()// -------------- поставь обьявление сюда* должно быть просто void __fastcall myFunc(); 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	29.11.2013, 19:26
	Если вы назначаете свою функцию типовому обработчику ButtonClick, то уже не правильно, - у того в параметрах присутствует TObject Sender, то-есть передается указатель на кнопку, которую нажали. А в вашей функции - пусто. Непорядок. Добавьте в вашу функцию (и в .срр и в .h) такую же запись: вместо myFunc() - myFunc(TObject Sender). 1