Discussion :

[frantzgac]

Bonjour
Je rencontre une difficulté avec la création dynamique de contrôle dans un TQuickRep.
Je veux attacher un TQRLabel dans le TQRBand dont je possède le nom.
Je recherche le TQRBand dont le nom correspond à celui recherché "BandName"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
for (i=0;i<QuickRep->ControlCount;i++)
                if (QuickRep->Controls[i]->Name==BandName)
                        QRLabel=new TQRLabel(QuickRep->Controls[i]);

Une fois ceci fait j'affecte les propriétés au TQRLabel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
QRLabel->Caption="texte"
QRLabel->Top=...

enfin je spécifie le parent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

QRLabel->Parent=QuickRep->FindChildControl(BandName);

et j'obtiens l'erreur de compilation

Impossible de convertir TControl * en TwinControl *

J'en déduis que la liste Controls n'est pas typée de la même manière que la propriété Parent, mais alors comment faire ?

[DjmSoftware]

Salut
Avec quelle version de C++ BUilder travaille tu? ainsi que la version de TQuickReport
cordialement

[frantzgac]

Bonjour

Je travaille sous C++ Builder 6 avec QuickReport 3.0.9

(Ceci parce que le code de test sera incorporé à une application datant de 20 ans et dont le portage en version plus récente est hors de propos)

Merci de ta réponse, je vais consulter tes tutos.

[frantzgac]

Finalement j'ai trouvé la solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

QRLabel->Parent=QuickRep->FindChildControl(BandName)

;
doit être écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

QRLabel->Parent=(TWinControl *)QuickRep->FindChildControl(BandName);

[frantzgac]

et pour info une autre solution, plus élégante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        QRBand=dynamic_cast <TQRBand *> (QuickRep->FindChildControl(BandName));
        if (QRBand==NULL)       // En supposant que le QuickRep n'a aucune bande du nom recherché
                exit;