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

@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).

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@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