Simulation clique boutons

Version imprimable

03/12/2013, 14h01
Meyl'

Simulation clique boutons

Bonjour,

Mon programme fonctionne, mais j'aurais voulu le réduire au maximum : j'ai une quinzaine de boutons, 3 pour sélectionner la langue, 1 pour la changer et une dizaine avec des mots inscrits dessus. Lorsque je clique sur l'un des 3 boutons, je simule un clique sur les dix autres. Je voudrais savoir si il n'y a pas une écriture moins fastidieuse pour simuler ce clique que de recopier 10 fois "Button->Click()". J'ai tenté un TButton, mais ca ne marche que sur le bouton de la langue sélectionnée... Et je n'arrive pas à utiliser une exception...

J'espère avoir été clair.

A celui ou celle qui m'aidera , Merci !

Salut, je ne suis pas certain de bien comprendre la question. Si tu veux simuler un clic sur plusieurs boutons tu peux faire un truc du genre:
Code:

1 2 3 4 5 6 7 8 9 for(int i = 0; i < ControlCount; ++i) { if(Controls[i]->ClassNameIs("TButton")) { TButton *Button = static_cast<TButton *>(Controls[i]); Button->Click(); } }

04/12/2013, 10h16
Meyl'

Tu n'as pas très bien compris mais tu as trouvé ma solution ! Merci beaucouuuup :D

Salut !

Voici un autre moyen !

Soient sur la fiche :
1 bouton maître (SpeedButton1)
10 boutons cibles (SpeedButton2 ...)

Chaque bouton cible se mémorise dans la propriété Tag du bouton maître.
Si on clique sur le bouton maître, le bouton mémorisé se dessinera comme "flat".

Testé avec BCB3 Pro ... donc vérifier si ça fonctionne aussi sur les versions ultérieures !

A plus !

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
 
//------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
// initialisation du mécanisme
SpeedButton1->Tag = (int)SpeedButton2;
}
//--------------- le bouton maître
void __fastcall TForm1::SpeedButton1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
TSpeedButton *B = (TSpeedButton*)SpeedButton1->Tag;
B->Flat = true;
}
//--------------- le bouton maître
void __fastcall TForm1::SpeedButton1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
TSpeedButton *B = (TSpeedButton*)SpeedButton1->Tag;
B->Flat = false;
}
//--------------- partagée par les 10 boutons cibles
void __fastcall TForm1::SpeedButton2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
// Le bouton cible est le Sender et non pas le this de cette méthode
// Un Tag du type int peut servir de pointeur vers TSpeedButton par
// simple transtypage
SpeedButton1->Tag = (int)Sender;
}
//---------------

10/12/2013, 09h24
Meyl'

Créer une action sur ma première forme à partir de ma deuxième forme

Merci pour ton aide, mais je garde mes tags en réserve pour d'autre utilisation... Merci quand même :)

J'aurais une seconde question : j'ai ajouté une forme à mon projet, et je voudrais savoir, quand je clique sur un bouton de ma deuxième forme, je crèe une action sur ma première forme. J'ai ajouté Unit1.h et Unit2.h à mes projets, mais je ne trouve pas comment faire pour la suite...

Merci d'avance pour votre aide ! :)
10/12/2013, 15h46
Crayon

Salut, va voir cette FAQ: Comment accéder à des fonctions ou variables d'une fiche à partir d'une autre fiche ?
11/12/2013, 16h56
Meyl'

D'ac, merci :)

Et pour continuer dans les questions, tu connaitrais pas une FAQ pour les TAdvGlowButton ou les TAdvEditBtn ?
17/12/2013, 09h57
Meyl'

Bonjour,

Je reviens à la pêche aux infos... Après avoir simuler mon clique sur des TButton, je voudrait le simuler sur des TAdvGlowButton, des TAdvEditBtn, des TMenuItem et des TAdvNavBarPanel. J'ai essayé avec les 2 méthodes que vous m'avez proposé, et aucune ne convient... Pour celle de Crayon, le compilateur ne lit pas le if, il s’arrête à la condition. Et pour celle d'Henderson, il me marque que "Flat" n'est pas membre de ces objets.

Pouvez-vous m'aider s'il vous plait ? :calim2:
17/12/2013, 10h31
totoche76

Citation:

Envoyé par Meyl'

Pour celle de Crayon, le compilateur ne lit pas le if, il s’arrête à la condition.

????? C'est à dire ??? Tu as une erreur de compilation ? Si oui, laquelle ?

Citation:

Envoyé par Meyl'

Et pour celle d'Henderson, il me marque que "Flat" n'est pas membre de ces objets.

Pour la bonne raison que Flat n'est pas une propriété de ces objets... L'exemple d'Henderson était basé sur des TSpeedButton, Flat est une propriété de TSpeedButton, donc ce qu'il a mis comme exemple fonctionne, mais si tu veux utiliser d'autres types de boutons, ben, faut adapter..... Sur les MouseDown/MouseUp, Henderson joue avec la propriété Flat pour simuler visuellement un clic... Mais toi, tu veux quoi comme retour visuel ??
17/12/2013, 10h44
Meyl'

Citation:

????? C'est à dire ??? Tu as une erreur de compilation ? Si oui, laquelle ?

Non, je n'ai aucune erreur. Mais quand j'exécute mon programme, il lit la ligne

Code:

if(Controls[i]->ClassNameIs("TAdvGlowButton"))

mais pas l'intérieur du if.

Citation:

Mais toi, tu veux quoi comme retour visuel ??

Je voudrais charger la valeur d'un mot sur le bouton (ou autre). Pour que le bouton affiche la valeur il faut cliquer dessus (si tu as une autre solution pour afficher la valeur sans simuler de clique, je suis preneuse aussi !)

Citation:

Envoyé par Meyl'

Non, je n'ai aucune erreur. Mais quand j'exécute mon programme, il lit la ligne

Code:

if(Controls[i]->ClassNameIs("TAdvGlowButton"))

mais pas l'intérieur du if.

Tu n'aurais pas mis tes TAdvGlowButton à l'intérieur d'un TPanel ou d'un truc du genre ????
Si les boutons sont à l'intérieur de "monTruc", le code de Crayon devient:
Code:

1 2 3 4 5 6 7 8 for(int i = 0; i < monTruc->ControlCount; ++i) { if(monTruc->Controls[i]->ClassNameIs("TButton")) { TButton *Button = static_cast<TButton *>(monTruc->Controls[i]); Button->Click(); } }
cf. http://docwiki.embarcadero.com/Libra...l.ControlCount (c'est la doc de XE5, ok, mais c'est le genre de chose qui doit exister depuis la 1ère version...)

Sinon il y a la possibilité d'utiliser ComponentCount / Components[i] (cf. http://docwiki.embarcadero.com/Libra...ent.Components)

17/12/2013, 11h49
Meyl'

Non il est juste posé sur la Form, mais ta solution fonctionne quand même :)

J'ai encore un problème ... (Oui j'en ai beaucoup !) : Quand je veux simuler un clique sur un TAdvEditBtn le gestionnaire d'erreur m'indique que"' _fastcall TControl::Click()' n'est pas accessible". Y a-t-il une autre façon de simuler un clique que d'utiliser "->Click();" ?
17/12/2013, 17h35
Crayon

Citation:

Envoyé par Meyl'

J'ai encore un problème ... (Oui j'en ai beaucoup !) : Quand je veux simuler un clique sur un TAdvEditBtn le gestionnaire d'erreur m'indique que"' _fastcall TControl::Click()' n'est pas accessible". Y a-t-il une autre façon de simuler un clique que d'utiliser "->Click();" ?

Salut, si la méthode Click n'existe pas tu peux essayer d'utiliser le message BM_CLICK.
18/12/2013, 11h54
Meyl'

J'ai fait un

Code:

SendMessage(AdvEditBtn, BM_CLICK, 0, 0);

mais ca ne me simule pas de clique :(
18/12/2013, 16h44
Crayon

Citation:

Envoyé par Meyl'

J'ai fait un

Code:

SendMessage(AdvEditBtn, BM_CLICK, 0, 0);

mais ca ne me simule pas de clique :(

Salut, tu n'as pas le bon paramètre pour SendMessage. Il te faut un Handle de fenêtre:

Code:

SendMessage(AdvEditBtn->Handle, BM_CLICK, 0, 0);
19/12/2013, 09h51
Meyl'

Salut !

Est-ce qu'il faut aussi que je change les paramètres de

Code:

void __fastcall TForm1::AdvEditBtn1Click(TObject *Sender)

?

Parce que même avec le Handle je n'ai aucune simulation :oops:
19/12/2013, 14h53
totoche76

Le composant TAdvEditBtn a une propriété Button qui représente .... le bouton associé au composant d'édition....

Donc à essayer:

Code:

AdvEditBtn->Button->Click();

ou

Code:

SendMessage(AdvEditBtn->Button->Handle, BM_CLICK, 0, 0);
19/12/2013, 16h29
Meyl'

Le "hic" c'est que je souhaiterais que le mot s'affiche quand je clique sur la partie blanche du adveditbtn... Je garde le bouton pour d'autre fonction...

Du coup, (j'ai cherché mais je pense que je ne suis pas très douée...) quelle est le nom de la partie blanche ? (Enfin si ca peut marcher...:aie::traine:)
26/12/2013, 13h43
Meyl'

J'ai essayé avec le clic bouton mais ca ne fonctionne pas mieux avec les deux solutions données... Je commence à désespérer...

HEEEELP !!
26/12/2013, 20h36
henderson

Salut !

J'ai BCB 3 Pro (qui date de 1998 :mouarf:) donc je galère en lisant ce sujet !
Si c'est du texte ... alors il devrait y avoir une propriété Caption.
Par contre, si elle n'est pas accessible... avec la souris ... alors il faudrait concevoir une classe spéciale... en dérivant de TCustomControl, dans le genre : un click mais deux actions distinctes en fonction de la zone (???).

Les objets de la VCL sont conçus pour répondre à un usage standard... donc... donc... donc... !!!

Je ne sais même pas à quoi ça ressemble ces boutons alors... j'hésite à poster un exemple de bouton hendersonien :zoubi:!

Et pour ne rien arranger ... je ne suis pas sûr d'avoir réellement compris le but de la manip ! On peut débuter ...certes... mais pour se faire aider encore faudrait-il donner aux autres suffisamment d'informations pour qu'ils puissent le faire correctement ! Non ? :aie:

Donc : Zen !!! :ccool:... on respire profondément... et on se calme... et une fois que je problème aura été bien décrit ... il sera résolu (de facto) ;)!

Parce que ici, je ne sais pas si on doit faire une guirlande de sapin de Noël ou simplement récupérer des données ! :mrgreen:

A plus !
30/12/2013, 10h56
Meyl'

Salut Henderson !

En fait, je dois créer une application multi langue. Quand je charge mes mots sur mes composants, ils ne s'affichent pas directement (j'ai essayé un refresh mais je n'ai pas eu beaucoup de succès...). Du coup pour que la valeur s'affiche instantanément je simule un clic sur mes composants.

J'ai réussi avec 2 composants sur 5 ( :mrgreen: ).

Les AdvEditBtn sont composés d'un Edit et d'un Button. Et je voudrais simuler un clic sur l'Edit de ce composants. Malheureusement, la fonction "click()" n'existe pas pour ce composant. Mais quand je clic sur l'Edit dans l'application, mas valeur change.

Voilà, j'espère que c'est clair ... :aie:

Merci pour ton aide

Salut !

Plus ou moins clair ...

S'il s'agit de modifier le texte affiché par les composants en fonction d'une langue particulière, il y a un truc assez simple à mettre en oeuvre !

En fait, il s'agit de terminer ton logiciel pour une langue donnée (à ce stade, peu importe ici la langue utilsée).

Et le point important est que ton exé va toujours créer ses objets dans le même ordre, en particulier tout ce qui dérive de TComponent.

Cela signifie que lorsque ton exécutable sera exécuté la première fois, il te sera possible de générer un fichier texte pour y collecter chaque mot ou phrase.

Une fois que cette étape est terminée, il te suffit de créer autant de fichiers qu'il y aura de langues proposées, chacun comportant le même nombre de mots ... mais traduits et ce qui sera à faire manuellement !

Le changement de langue sera donc l'opération inverse, consistant à lire le contenu d'un fichier .TXT, d'extraire chaque mot pour l'affecter à un composant.

On se servira donc de l'ordre de création des composants qui transparaît dans la propriété TComponents* Components[] de TForm.

Voici d'une manière synthétique, ce qu'il y aura à développer :

a) On part du principe :

Code:

1
2
3
TStringList *Mots;
enum{english=0, french, german, italian, spanish, local};
AnsiString FilePath;

b) pour la collecte des mots une fois que ton logiciel est prêt à être diffusé :
C'est une méthode à compléter... à modifier en fonction des classes utilisées dans ton programme.
Dans ce que je montre, j'ai utilisé au moins 1 objet de telle ou telle 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
void __fastcall TForm1::Close1Click(TObject *Sender)
{
AnsiString F;
int i, j;
TComponent *C;
TRadioGroup *RG;
Mots->Clear();
for(j=0; j < ComponentCount; j++) {
C = Components[j];
 
if(C->InheritsFrom( __classid(TMainMenu))) Mots->Add( "MainMenu"); // <== ne fait rien de plus
else if(C->InheritsFrom( __classid(TMenuItem))) Mots->Add( ((TMenuItem*)C)->Caption );
else if(C->InheritsFrom( __classid(TEdit))) Mots->Add( ((TEdit*)C)->Text );
else if(C->InheritsFrom( __classid(TLabel))) Mots->Add( ((TLabel*)C)->Caption );
else if(C->InheritsFrom( __classid(TPanel))) Mots->Add( ((TPanel*)C)->Caption );
else if(C->InheritsFrom( __classid(TButton))) Mots->Add( ((TButton*)C)->Caption );
else if(C->InheritsFrom( __classid(TRadioButton))) Mots->Add( ((TRadioButton*)C)->Caption );
else if(C->InheritsFrom( __classid(TSpeedButton))) Mots->Add( ((TSpeedButton*)C)->Caption );
else if(C->InheritsFrom( __classid(TCheckBox))) Mots->Add( ((TCheckBox*)C)->Caption );
else if(C->InheritsFrom( __classid(TGroupBox))) Mots->Add( ((TGroupBox*)C)->Caption );
else if(C->InheritsFrom( __classid(TRadioGroup)))
        {
        RG = (TRadioGroup*)C;
        F = RG->Caption;
        for(i = 0; i < RG->Items->Count; i++ )
            {
            F = F + "-" + RG->Items->Strings[i];
            }
        Mots->Add( F );
 
        }
 
//...
    }
F = FilePath + "\\" + "engl.TXT";
Mots->SaveToFile( F );
 
Close();
}
//--------

c) pour l'actualisation de la langue :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
void ChargerLangue(int Langue)
{
AnsiString F;
switch(Langue) // en relation avec l'enumération
    {
    case english : F = "engl.txt"; break;
    case french  : F = "fran.txt"; break;
    case german  : F = "germ.txt"; break;
    case italian : F = "ital.txt"; break;
    case spanish : F = "span.txt"; break;
    case local   : F = "local.txt"; break;
    }
F = FilePath + "\\" + F;
if(FileExists( F ))
    {
    Mots->LoadFromFile( F );
    }
else
    {
    //...
    }
}

Après chargement, il faut donc modifier chaque objet devant l'être :

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
void ChangerMots(TComponent *Component)
{
int i, j, n;
AnsiString N;
AnsiString A;
TComponent *C;
TRadioGroup *RG;
for(j=0; (j < Component->ComponentCount) && (j < Mots->Count); j++)
    {
    N = Mots->Strings[j];
    C = Component->Components[j];
    if(C->InheritsFrom(__classid(TMainMenu))) j = j; // <== ne fait rien de plus
    else if(C->InheritsFrom(__classid(TMenuItem))) ((TMenuItem*)C)->Caption = N;
    else if(C->InheritsFrom(__classid(TEdit))) ((TEdit*)C)->Text = N;
    else if(C->InheritsFrom(__classid(TLabel))) ((TLabel*)C)->Caption = N;
    else if(C->InheritsFrom(__classid(TPanel))) ((TPanel*)C)->Caption = N;
    else if(C->InheritsFrom(__classid(TButton))) ((TButton*)C)->Caption = N;
    else if(C->InheritsFrom(__classid(TRadioButton))) ((TRadioButton*)C)->Caption = N;
    else if(C->InheritsFrom(__classid(TSpeedButton))) ((TSpeedButton*)C)->Caption = N;
    else if(C->InheritsFrom(__classid(TCheckBox))) ((TCheckBox*)C)->Caption = N;
    else if(C->InheritsFrom(__classid(TGroupBox))) ((TGroupBox*)C)->Caption = N;
    else if(C->InheritsFrom( __classid(TRadioGroup)))
        {
        RG = (TRadioGroup*)C;
        n = N.Pos("-");
        RG->Caption = N.SubString(1, n-1);
        for(i = 0; i < RG->Items->Count; i++ )
            {
            N = N.SubString(n+1, N.Length());
            n = N.Pos("-");
            if(n != 0)RG->Items->Strings[i] = N.SubString(1, n-1);
            else RG->Items->Strings[i] = N;
            }
        }
    }
}

Et pour l'usage :

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)
{
FilePath = ExtractFilePath( Application->ExeName );
Mots = new TStringList();
}
//------------- Eventuellement rajouter le destructeur
__fastcall TForm1::~TForm1()
{
Mots->Clear();
delete Mots;
}
//----------
 
void __fastcall TForm1::English1Click(TObject *Sender)
{
ChargerLangue(english);
ChangerMots( this );
}
//----------
void __fastcall TForm1::French1Click(TObject *Sender)
{
ChargerLangue(french);
ChangerMots( this );
}
// ...

J'ai testé avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
__published:	// Composants gérés par l'EDI
    TMainMenu *MainMenu1; // <== n'est pas directement concerné mais dérive de TComponent
    TMenuItem *File1;
    TMenuItem *English1;
    TMenuItem *French1;
    TMenuItem *German1;
    TMenuItem *Italian1;
    TMenuItem *Spanish1;
    TMenuItem *Local1;
    TMenuItem *N1; // le séparateur "-"
    TMenuItem *Close1;
    TLabel *Label1;
    TPanel *Panel1;
    TSpeedButton *SpeedButton1;
    TCheckBox *CheckBox1;
    TButton *Button1;
    TRadioButton *RadioButton1;
    TGroupBox *GroupBox1;
    TRadioGroup *RadioGroup1; // avec 4 items
    TCheckBox *CheckBox2;
    TCheckBox *CheckBox3;
    TCheckBox *CheckBox4;
    TLabel *Label2;

S'il y a mieux ...en ce qui me concerne j'ai testé avec BCB3 Pro donc ... avec les moyens du bord !

En souhaitant une bonne année à tous !

A plus !