Присвоение Event`a через код

@Master_Yi · Регистрация: 22.12.2013

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

У меня кнопки выводятся через код:

C++

A[i] = new TButton(this);
A[i]->Parent = this;
A[i]->Top=fftop;
A[i]->Left=ffleft;
A[i]->Width=217;
A[i]->Height=33;
A[i]->Tag=i+1;
A[i]->Caption=B[i];

Заголовочный файл:

C++

class borderimage : public TForm
{
 
__published:    // IDE-managed Components
        TButton *Button19;
        void __fastcall Clicker(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall Form1(TComponent* Owner);
        TButton *A[1]; // !!!
};

И есть проблема, нужно что бы все эти кнопки при нажатии выводили разные действия. У них разные Таги, и на это расчет, что бы обращаться с помощью case и номера Тага. Я никак не могу понять как же назначить эти кнопки на одно событие...

Буду чрезвычайно благодарен за помощь!

@gumi250 · 13.12.2014, 05:34

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

нужно что бы все эти кнопки

У вас одна кнопка объявлена

C++

int N=1;
for(int i=0; i<N; i++)
  A[i]->OnClick=&ButtonClick;
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
  TButton* B=(TButton*) Sender;
  if(B->Tag==0)
  { //...
  }
  // или
  if(B==A[0])
  { //...
  }
}

@Master_Yi · 13.12.2014, 12:06 **[ТС]**

gumi250, Ясное дело. Проблема заставить кнопки реагировать на что-то...

@Витальич · 13.12.2014, 12:48

C++

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TLabel *Label1;
 
private:    // User declarations
    TButton *A[1];
    void __fastcall ButtonClick(TObject *Sender);
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

C++

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 A[0] = new TButton(this);
 A[0]->Parent = this;
 A[0]->Top=0;
 A[0]->Left=0;
 A[0]->Width=217;
 A[0]->Height=33;
 
 A[0]->Caption="1";
 A[0]->OnClick = ButtonClick;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
 Label1->Caption = "111";
}

@Master_Yi · 14.12.2014, 02:05 **[ТС]**

Сообщение от Витальич

#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>

На ваши варианты инклудов ругается и пишет что таковых нет, взамен им ставит стандартные:

C++

#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
#include <StdCtrls.hpp>

А так же после всего что вы предложили выбивает ошибку(прикрепил к посту картинку)
А так же подчеркивает строку: Application->Run(); в Project1.cpp

Весь текущий код(на всякий случай:

Кликните здесь для просмотра всего текста

Unit1.h

C++

#ifndef Unit1H
#define Unit1H
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TImage *Image1;
        TImage *Image2;
        TLabel *Label1;
private:    // User declarations
    TButton *A[1];
    void __fastcall ButtonClick(TObject *Sender);
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Unit1.cpp

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i, ff, ffleft, fftop;
String B[100];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
int i;
ffleft=312;
fftop=144;
ff=0;
B[0] = "text1";
B[1] = "text2";
B[2] = "text3";
B[3] = "text4";
B[4] = "text5";
B[5] = "text6";
B[6] = "text7";
B[7] = "text8";
B[8] = "text9";
B[9] = "text10";
B[10] = "text11";
B[11] = "text12";
B[12] = "text13";
B[13] = "text14";
B[14] = "text15";
B[15] = "text16";
B[16] = "text17";
B[17] = "text18";
 
  for(i=0;i<18;i++)
  {
if (i==16) {
        A[i] = new TButton(this);
        A[i]->Parent = this;
        A[i]->Top=fftop;
        A[i]->Left=ffleft;
        A[i]->Width=449;
        A[i]->Height=33;
        A[i]->Tag=i+1;
        A[i]->Caption=B[i];
        A[i]->OnClick = ButtonClick;
        fftop = fftop + A[i]->Height + 7;
 
}
else if (i==17) {
        A[i] = new TButton(this);
        A[i]->Parent = this;
        A[i]->Top=fftop;
        A[i]->Left=ffleft;
        A[i]->Width=449;
        A[i]->Height=33;
        A[i]->Tag=i+1;
        A[i]->Caption=B[i];
        A[i]->OnClick = ButtonClick;
}
else {
if (ff==0) {
        A[i] = new TButton(this);
        A[i]->Parent = this;
        A[i]->Top=fftop;
        A[i]->Left=ffleft;
        A[i]->Width=217;
        A[i]->Height=33;
        A[i]->Tag=i+1;
        A[i]->Caption=B[i];
        A[i]->OnClick = ButtonClick;
        ffleft=ffleft+A[i]->Width+15;
        ff=1;
   }
else if (ff==1) {
        A[i] = new TButton(this);
        A[i]->Parent = this;
        A[i]->Top=fftop;
        A[i]->Left=ffleft;
        A[i]->Width=217;
        A[i]->Height=33;
        A[i]->Tag=i+1;
        A[i]->Caption=B[i];
        A[i]->OnClick = ButtonClick;
        fftop = fftop+A[i]->Height+7;
        ffleft = 312;
        ff=0;
   }}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
 Label1->Caption = "111";
}

Не знаете что это?

@Master_Yi · 14.12.2014, 02:18 **[ТС]**

Я тут опробовал, каждый раз когда я пробую добавить любой цикл для создания кнопок(в общем для создания больше чем одной кнопки) я стыкаюсь с проблемой выше..

Добавлено через 4 минуты
Я идиот, согласен. Забыл увеличить массив чисел =)
Заработало! Вуху!

@BRcr · 16.12.2014, 01:33

Не по теме:

Себя надо любить. :) Не идиот, а уж нуб или растяпа на крайняк. Потому что все это поправимо, а идиотизм - нет.

@Master_Yi 13 / 10 / 3 Регистрация: 22.12.2013 Сообщений: 378
	13.12.2014, 12:06 [ТС]	3
	gumi250, Ясное дело. Проблема заставить кнопки реагировать на что-то... 0

@Master_Yi 13 / 10 / 3 Регистрация: 22.12.2013 Сообщений: 378
	14.12.2014, 02:18 [ТС]	6
	Я тут опробовал, каждый раз когда я пробую добавить любой цикл для создания кнопок(в общем для создания больше чем одной кнопки) я стыкаюсь с проблемой выше.. Добавлено через 4 минуты Я идиот, согласен. Забыл увеличить массив чисел =) Заработало! Вуху! 0

@BRcr
	16.12.2014, 01:33 Присвоение Event`a через код #7
	Не по теме: Себя надо любить. :) Не идиот, а уж нуб или растяпа на крайняк. Потому что все это поправимо, а идиотизм - нет. 0

Присвоение Event`a через код

Решение