Nie działająca funkcja OnClick- po naciśnięciu przycisku nic się nie dzieje

Question

Witam wszystkich!

Utknęłam na chorobliwie banalnej rzeczy, jaką jest funkcja OnClick. Niestety dopiero stawiam swoje nieśmiałe, pierwsze kroki w C++ Builderze i nie wszystko idzie gładko...

Do rzeczy- na ekranie pojawia się przycisk, ale po kliknięciu na niego napis na przycisku się nie zmienia. 

// UNIT1.CPP

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
TButton *Button1=new TButton(this);
Button1->Parent=Form1;
Button1 -> Caption = "Przed kliknieciem";
void __fastcall Button1Click(TObject *Sender);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Button1 -> Caption = "Po kliknieciu";
}
//---------------------------------------------------------------------------

//UNIT1.H

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        void __fastcall FormCreate(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
        void __fastcall Button1Click(TObject *Sender);
        TButton *Button1;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

 

Answer 1

W linii 17 tworzysz przycisk i przypisujesz go lokalnego wskaźnika Button1. W Button1Click odwołujesz się do wskaźnika Button1, który jest polem klasy TForm1. Operujesz na dwóch różnych wskaźnikach.

 

Po co ta deklaracja w linii 20?

Comments

Hmm, deklarację z linii 20 usunęłam, ale nie bardzo rozumiem o co Ci chodzi wcześniej.

---

Nie

TButton *Button1=new TButton(this);

tylko

Button1 = new TButton(this);

 

---

Dalej nie działa, napis na przycisku się nie zmienia...

---

Pokaż kod po zmianach.

---

.CPP

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//#include "Button2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Button1 = new TButton(this);
  Button1->Parent = Form1;
  Button1->Caption="Przed kliknieciem";
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Button1 -> Caption = "Po kliknieciu";
}
//---------------------------------------------------------------------------

.H:

//---------------------------------------------------------------------------

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

 

---

Ech, nieprzytomny chyba dzisiaj jestem.

Daj jeszcze w konstruktorze: Button1->OnClick = Button1Click;

Tylko tak się zastanawiam. Jeśli w kreatorze wstawiłaś przycisk i ustawiłaś zdarzenie OnClick na Button1Click, to linii 16 i 17 (w pliku .cpp) w ogóle nie powinno być.

---

Nie nie, kreator jest nietknięty.

Jezu, działa! Wielkie dzięki, banalny problem, jednak ile nerwów i czasu na to straciłam...

Answer 2

Tutaj coś było pokombinowane z tym voidem pomiędzy klamrami TForm1. Spróbuj tak:

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
TButton *Button1=new TButton(this);
Button1->Parent=Form1;
Button1 -> Caption = "Przed kliknieciem";
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Button1 -> Caption = "Po kliknieciu";
}

 

Comments

Niestety, dalej nie działa :(