QuickReport : Ajout dynamique de QRDBText

. . . tout est dans le titre.

Dans un quickreport :

Il m'est nécessaire de rajouter dynamiquement dans mon application des champs QRDBText sur 1 QRsubdétail.

Je ne suis pas trés familier de la création dynamique de composant avec la fonction Create( . . .) .
J'ai consulté l'aide de Delphi 6 : Nada. J'ai trouve quelques infos interessantes pour les quickreport sur le forum, mais rien sur la construction dynamique des QRDBText.

Merci pour votre aide

Rien de compliquer dans la creation dynamique de composant, juste 2 points particuliers :

1. le Create(aOwner) : le Owner est le composant qui se charge de la libération du composant, en général on met la form qui contient le controle mais tu peux mettre nil et liberer manuellement si tu garde une reference de l'instance de ton composant
2. Il faut fixer le parent : c'est lui qui contient visuellement ton composant, ce sera soit ta form, soit un panel, une bande ...

En general la creation se fait ainsi :

Code:

---

1 2 3 4 5 6

with TMonComp.Create(Self) do begin SetBounds(0,0,30,15); // on donne les dimensions et on place le composant Parent := Self; // ... end;

---

Apres, bien sur, tu peux changer les propriétés de ton composant pour qu'il ait l'aspect et le comportement souhaité ...

Sinon, on en parle dans la FAQ

Citation:

---

Envoyé par Ben156

Il m'est nécessaire de rajouter dynamiquement dans mon application des champs QRDBText sur 1 QRsubdétail.

---

Le AOwner étant la TForm

Code:

---

1 2 3 4 5 6 7 8

Mon_QRDBText := TQRDBText.Create( AOwner ); WITH Mon_QRDBText DO BEGIN Parent := AOwner.Ma_Bande_QuickReport; DataSet :=....; DataField :=....; ......Le reste étant les propriété pour placer le composant, son look ..... END;

---

Merci pour vos reponses, j'essaye de ce pas.

B Leclercq