ButtonClick evenement d'un TButton dynamique

Version imprimable

Bonjour!

Je veux faire un programme qui lit plusieurs codes (>120) d´un fichier texte (avec un TStringList), et puis, affiche les codes sur des TButtons. Le nombre de codes et alors de Boutons doit être variable. Quand les boutons sont cliqué, les codes doivent etre passé a un fonction qui est declare dans l'application principale.

Alors j'essaye de faire un classe TBouton, qui consiste d'un TButton et son ButtonClick evenement. Mais je n´ai pas beaucoup d´experience sur les objects dynamique.

Voici mon code:

buttonz.h
Code:

1 2 3 4 5 6 7 8 9 10 11 12 #ifndef boutonH #define boutonH class TBouton { public: TBouton(String zin); TButton *but; void __fastcall ButtonClick(TObject *Sender); }; #endif
buttonz.cpp
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 #include <StdCtrls.hpp> #include "buttonz.h" #include "DynButUnit.cpp" TBouton::TBouton(String nom) { this->but = new TButton((void *)MainForm); this->but->Caption = nom; } void __fastcall TBouton::ButtonClick(TObject *Sender) { MainForm->Fonction(this->but->Caption); }
unit1.cpp
Code:

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 #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include "buttonz.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TMainForm *MainForm; TBouton *Bouton[20]; //--------------------------------------------------------------------------- __fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner) { for (int i=0; i<19; i++) { Bouton[i] = new TBouton("Jaap"); Bouton[i]->but->Top = i*30; Bouton[i]->but->Parent = MainForm; } } //--------------------------------------------------------------------------- __fastcall TMainForm::Fonction(String zin) { Memo1->Lines->Add(zin); }
Pour voir si ca marche Le fonction (MainForm->Fonction) affiche son parametre (les codes) sur un Memo. Il est declare dans unit1.h comme 'public'

Problablement, ce code est plein d'erreurs, car quand je compile le programme, ca donne plusieurs warnings. Mais on peut executer et on voit les boutons. Mais quand je clique les bouton, rien se passe.

Qui peut m'aider?

10/01/2008, 21h30
pottiez

Tu as oublié de definir l'evenement du boutton, comme ceci dans le constructeur de ta classe TBouton:

Code:

this->but->OnClick = ButtonClick;
11/01/2008, 00h27
Flagada

Citation:

Envoyé par pottiez

Tu as oublié de definir l'evenement du boutton, comme ceci dans le constructeur de ta classe TBouton:

Code:

this->but->OnClick = ButtonClick;

Merci pottiez ,

Maintenant j'ai moins de 'warnings'. J'ai aussi corrigé un erreur dans la declaration de MainForm->Fonction. Maintenant c'est:

Code:

void __fastcall Fonction(String zin);

Quand je clique les boutons, le Fonction est bien executé: je peux verifier avec un MessageBeep() ou un MessageBox(). Mais quand je veux changer le contenu (ou la visibilite) du Memo, le programme crash. C'est bizar, non? :|
11/01/2008, 00h46
Gilles Louïse

Vous devriez n'avoir ni erreur ni warning.

Il n'y a aucune raison pour que vous ne puissiez pas accéder à votre Memo donc donnez-nous l'instruction qui plante.

Au lieu d'utiliser String, utilisez plutôt AnsiString qui est un bien meilleur objet pour C++ Builder.

À bientôt
Gilles
11/01/2008, 01h24
Flagada

Salut Gilles,

OK, j'utilise AnsiString maintenant. Le erreur dit:

Project DynaButton.exe raised exception class EAccessViolation with message 'Acces violation at adress 00401C9C in module 'DynaButton.exe'. Read of address 00002F0'. Process stopped. Use Step or Run to continu.

On peut continuer, mais on ne voit rien sur le Memo...
11/01/2008, 01h44
Gilles Louïse

Citation:

Envoyé par Flagada

Mais quand je veux changer le contenu (ou la visibilite) du Memo, le programme crash. C'est bizar, non? :|

À quel moment vous exécutez ces instructions, où se trouve le code ? Je ne vois pas pourquoi vous n'accéderiez pas à votre Memo. Vous donnez le message d'erreur mais savez-vous l'instruction qui plante ?

À bientôt
Gilles

Citation:

Envoyé par Gilles Louïse

À quel moment vous exécutez ces instructions, où se trouve le code ? Je ne vois pas pourquoi vous n'accéderiez pas à votre Memo. Vous donnez le message d'erreur mais savez-vous l'instruction qui plante ?

OK, je donne le code complet du programme principale:

DynButUnit.h

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#ifndef DynButUnitH
#define DynButUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:	// IDE-managed Components
        TMemo *Memo1;
        TButton *Button1;
        void __fastcall Fonction(AnsiString zin);
private:	// User declarations
public:		// User declarations
        __fastcall TMainForm(TComponent* Owner);
 
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif

DynButUnit.cpp (presque le même que untit1.cpp, voir plus haut)

Code:

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
 
#include <vcl.h>
#pragma hdrstop
 
#include "DynButUnit.h"
#include "buttonz.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
TBouton *Bouton[20];
 
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
  for (int i=0;   i<19; i++)  {
    Bouton[i] = new TBouton("Jaap");
    Bouton[i]->but->Top = i*30;
    Bouton[i]->but->Parent = MainForm;
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::Fonction(AnsiString zin)
{
  MessageBeep(0);                                // pas de problème 
  Application->MessageBox("Salut!", MB_OK) ;     // pas de problème
 
//-----------------------------------------------------------------
 
  Memo1->Lines->Add(zin);                        // crash!
  Memo1->Visible = false;                        // crash!
  Memo1->Lines->Add("allo!");                    // crash!
  Button1->Visible = false;                      // crash!
}

Le problème est TMainForm::Fonction(AnsiString zin). Tout les instructions en haut de la ligne s´execute normalement. Tout les instructions sous la ligne ne peuvent pas etre utilisé, sinon ca plante immediatement...?

11/01/2008, 14h01
henderson

Salut !

Je pense qu'on a intérêt à dériver de TButton au lieu de modéliser TBouton comme cela est montré ici !
Ne pas oublier que l'on peut ajouter un constructeur doté des paramètres utiles pour l'initialisation de l'objet.
A ce stade du développement, on est "Concepteur" et non "Utilisateur" et par conséquent, on a le droit de fixer ses propres règles du jeu (dans les limites du jeu lui-même)!
Pour la OnClick, si tous les boutons ont la même méthode, dans ce cas il suffit de la rajouter à la classe et de l'affecter à son OnClick, et ce, dans le constructeur !
Ne pas oublier qu'en cas de méthode partagée par un ensemble d'objets, et ce, pour la méthode OnClick, le Bouton est donné par le Sender et non le this !

A plus !
11/01/2008, 16h24
Gilles Louïse

Citation:

Envoyé par Flagada

Button1->Visible = false;

Votre code est correct, il est exécutable chez moi (C++ Builder6 Entreprise), mais vous rendez invisible un certain Button1, qui n'était pas dans l'énoncé. Si donc j'enlève cette instruction (ou si je rajoute un bouton portant ce nom), ça marche. Encore une fois, il n'y a aucune raison pour que vous n'accédiez pas à votre Memo.

À bientôt
Gilles
18/01/2008, 18h08
Flagada

Citation:

Envoyé par Gilles Louïse

Votre code est correct, il est exécutable chez moi (C++ Builder6 Entreprise), mais vous rendez invisible un certain Button1, qui n'était pas dans l'énoncé. Si donc j'enlève cette instruction (ou si je rajoute un bouton portant ce nom), ça marche. Encore une fois, il n'y a aucune raison pour que vous n'accédiez pas à votre Memo.

Je n'y comprend rien! J'ai aussi C++ Builder6 Entreprise (Win XP, Dell Inspiron 531), et ça marche pas...:koi:

Le Button1 etait pour voir si je pouvais manipuler des autres objects, mais non. C'est la même chose avec un TLabel ou un TEdit. Les rendre visible ou invisible ou changer le texte, tous que j'essaie donne un plantation....:bug:

Pour commencer, les pointeurs de boutons devraient se trouver dans la classe.

Code:

1
2
3
4
5
6
7
8
9
10
11
class TMainForm : public TForm
{
__published:	// Composants gérés par l'EDI
   TMemo *Memo1;
   void __fastcall Button1Click(TObject *Sender);
private:	// Déclarations de l'utilisateur
public:		// Déclarations de l'utilisateur
TBouton *Bouton[20];
__fastcall TMainForm(TComponent* Owner);
void __fastcall Fonction(AnsiString);
};

Ensuite, je ne vois pas d’instruction qui connecte le OnClik de chaque bouton, donc il faudrait l’écrire.

Code:

1
2
3
4
5
6
7
8
9
10
11
__fastcall TMainForm::TMainForm(TComponent* Owner)
   : TForm(Owner)
{
for (int i=0;   i<19; i++)
   {
   Bouton[i] = new TBouton("Jaap");
   Bouton[i]->but->Top = i*30;
   Bouton[i]->but->Parent = MainForm;
   Bouton[i]->but->OnClick=Bouton[i]->ButtonClick;
  }
}

Pour le reste, en procédant ainsi, ça marche chez moi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
TBouton::TBouton(String nom)
{
this->but = new TButton(Application);
this->but->Caption = nom;
}
//---------------------------------------------------------------------------
void __fastcall TBouton::ButtonClick(TObject *Sender)
{
MainForm->Fonction(this->but->Caption);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Fonction(AnsiString zin)
{
  MessageBeep(0);                                // pas de problème
  Application->MessageBox("Salut!", MB_OK) ;     // pas de problème
 
//-----------------------------------------------------------------
 
  Memo1->Lines->Add(zin);              // pas de crash!
  Memo1->Lines->Add("allo!");          // pas de crash!
}

À bientôt
Gilles

24/01/2008, 10h45
Flagada

Merci Gilles pour ton aide. Je suis desolé mais ça marche pas. J'ai essaye tous que tu a proposé mais rien ne change. J'ai envie de jeter mon ordinateur par la fenêtre.
:arf:

Salut !

Sinon... je pense que l'on peut organiser tout ceci d'un manière plus simple.
Bien sûr, j'espère avoir compris ce que l'on cherche à faire ici.

On va se servir d'une classe dérivée de TComponent pour gérer dynamiquement les boutons.
Elle va servir de superviseur en lui donnant de quoi :
- charger un fichier texte
- en déduire le nombre de boutons (les créer ou les détruire)
- les positionner automatiquement (le pavé est aligné à gauche sur la fiche)
- affecter aux boutons une ligne de texte du fichier dans leur Caption
Ce superviseur sera propriétaire des boutons.

Le but étant lors du click sur un bouton de transmettre le Caption du bouton à une méthode membre du Superviseur.

Pour le reste, on suppose l'existance sur la fiche :
- d'un TOpenDialog pour choisir un fichier texte.
- d'un TMemo pour faire écho de l'opération (aligné à droite sur la fiche)
- Un TMainMenu avec quelques items (Ouvrir et Quitter)

Voici la classe qui va superviser les boutons :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
class jSupervisor : public TComponent
{
public :
TStringList *TextFile;
    __fastcall jSupervisor(TComponent *AOwner);
    __fastcall ~jSupervisor();
 
    void __fastcall LoadFromFile(AnsiString FileName);
    void __fastcall ButtonClick(TObject *Sender);
    void __fastcall Fonction(AnsiString N);
};

Les méthodes de cette classe :

Code:

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
64
65
66
67
68
69
 
__fastcall jSupervisor::jSupervisor(TComponent *AOwner)
    : TComponent(AOwner)
{
TextFile = new TStringList;
}
 
__fastcall jSupervisor::~jSupervisor()
{
TextFile->Clear();
delete TextFile;
}
 
void __fastcall jSupervisor::LoadFromFile(AnsiString FileName)
{
TButton *Button;
int x;
int y;
if(FileExists(FileName))
    {
    TextFile->LoadFromFile(FileName);
    //On va réajuster (s'il le faut) le nombre des boutons 
    if(ComponentCount < TextFile->Count)
        {
        while(ComponentCount != TextFile->Count)
            {
            Button = new TButton(this);
            Button->Parent = (TWinControl*)Owner;
            Button->OnClick = ButtonClick;
            //Je les organise en 4 colonnes
            x = ComponentCount-1;
            y = x;
            x = x % 4;
            y = y / 4;
            Button->SetBounds((x * 80) + 20,
                              (y * 23) + 20,
                              60,
                              21);
 
            }
        }
    else
        {
        if(ComponentCount > TextFile->Count)
            {
            while(ComponentCount != TextFile->Count)
                {
                delete Components[ComponentCount-1];
                }
            }
        }
    for(int j = 0; j < ComponentCount; j++)
        {
        ((TButton*)Components[j])->Caption = TextFile->Strings[j];
        }
    TextFile->Clear();
    }
}
 
void __fastcall jSupervisor::ButtonClick(TObject *Sender)
{
//REM : le Sender est le bouton sur lequel on a cliqué
Fonction(((TButton*)Sender)->Caption);
}
 
void __fastcall jSupervisor::Fonction(AnsiString N)
{
Form1->Memo1->Lines->Add(N);
}

En ce qui concerne la classe de la form, voici ce que l'on va y rajouter en public

Code:

1
2
3
 
jSupervisor *Supervisor;
AnsiString Filepath;

Les méthodes pour TForm1 :

Code:

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
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
Supervisor = new jSupervisor(this);
Filepath = ExtractFilePath(Application->ExeName);
OpenDialog1->InitialDir = Filepath;
}
 
//OnClick d'un menuitem pour ouvrir un fichier
void __fastcall TForm1::Ouvrir1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
    {
    //On purge le TMemo
    Memo1->Lines->Clear();
    //Notre pavé de buttons à partir du fichier
    Supervisor->LoadFromFile(OpenDialog1->FileName);
    }
}
 
//OnClose de la form
void __fastcall TForm1::Quitter1Click(TObject *Sender)
{
Close();
}

... en espérant que...

A plus !

Citation:

Envoyé par Flagada

Merci Gilles pour ton aide. Je suis desolé mais ça marche pas. J'ai essaye tous que tu a proposé mais rien ne change. J'ai envie de jeter mon ordinateur par la fenêtre.
:arf:

Je ne vois pax comment c'est possible, en partant d'un projet vierge et en copiant-collant les éléments situés dans ce fil, définition de la classe, méthodes et autres fragments, ça marche immédiatement.

Pour mémoire, en rouge ce qu'il faut copier-coller (en plus de mettre un TMemo sur la forme et à la nommer MainForm)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
class TBouton {
  public:
    TBouton(String zin);
    TButton *but;
    void __fastcall ButtonClick(TObject *Sender);
};
//---------------------------------------------------
class TMainForm : public TForm
{
__published:	// Composants gérés par l'EDI
   TMemo *Memo1;
private:	// Déclarations de l'utilisateur
public:		// Déclarations de l'utilisateur
TBouton *Bouton[20];
void __fastcall Fonction(AnsiString);
__fastcall TMainForm(TComponent* Owner);
};

Code:

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
__fastcall TMainForm::TMainForm(TComponent* Owner)
   : TForm(Owner)
{
for (int i=0;   i<19; i++)
   {
   Bouton[i] = new TBouton("Jaap");
   Bouton[i]->but->Top = i*30;
   Bouton[i]->but->Parent = MainForm;
   Bouton[i]->but->OnClick=Bouton[i]->ButtonClick;
  }
}
//-------------------------------------------------------------
void __fastcall TBouton::ButtonClick(TObject *Sender)
{
MainForm->Fonction(this->but->Caption);
}
//---------------------------------------------------------
void __fastcall TMainForm::Fonction(AnsiString zin)
{
  MessageBeep(0);                                // pas de problème
  Application->MessageBox("Salut!", MB_OK) ;     // pas de problème
 
//--------------------------------------------------------

  Memo1->Lines->Add(zin);              // pas de crash!
  Memo1->Lines->Add("allo!");          // pas de crash!
}
//---------------------------------------------------
TBouton::TBouton(String nom)
{
  this->but = new TButton((void *)MainForm);
  this->but->Caption = nom;
}

À bientôt
Gilles

03/02/2008, 17h48
Flagada

Citation:

Envoyé par henderson

Salut !

Sinon... je pense que l'on peut organiser tout ceci d'un manière plus simple.
Bien sûr, j'espère avoir compris ce que l'on cherche à faire ici.

... en espérant que...

A plus !

Merci Henderson. Je vais etudier ton code. Je n'ai pas beaucoup d'experience avec deriver des classes etc. C'est bien d'avoir un example maintenant.
03/02/2008, 18h18
Flagada

Citation:

Envoyé par Gilles Louïse

Je ne vois pax comment c'est possible, en partant d'un projet vierge et en copiant-collant les éléments situés dans ce fil, définition de la classe, méthodes et autres fragments, ça marche immédiatement.

Gilles

:yaisse2: :yaisse2: :yaisse2:

Finalement ça marche !!

J'avais declare la classe TBouton apart dans un unité (buttonz.h et buttonz.cpp, voir plus haut). Je pensait que c'etait comme il faut. Mais apparement quelquechose ne marchait pas bien: quand je ouvrais 'buttonz.cpp' dans BCB6, on voyait seulement 'buttonz.cpp' et pas 'buttonz.h'. Grace a ton aide ça marche enfin.

Merci beaucoup. :king: