Discussion :

[Ben156]

. . . 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

[pirbd]

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 :

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

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

[Eric.H]

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

Le AOwner étant la TForm

Code :

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

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;

[Ben156]

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

B Leclercq