[Delphi 7] Ajouter une instance de composant dynamiquement

Version imprimable

16/12/2008, 16h13
alainvh

[Delphi 7] Ajouter une instance de composant dynamiquement

Bonjour,
L'intitulé de cette discussion est peut-être faux (pb de vocabulaire ?).

Pour obtenir un Memo sur une Form, on clique sur l'icône du composant TMemo, puis on le 'dessine' sur la forme.
C'est ce que je voudrais faire dynamiquement, c'est à dire ajouter un Memo lors de l'exécution d'une procédure, soit quelque chose du genre Create Memo2, voire le supprimer ensuite par un Destroy Memo2. (je ne souhaite pas créer un nouveau composant !).

D'avance merci.
Cordialement,

Alain

Bonjour,

Pour créer un TMemo vous pouvez essayer quelque chose de ce type.
Code:

1 2 3 4 5 6 7 8 function Tform1.CreateNewMemo(Parent: Twincontrol; Left, Top: Integer;): TMemo; begin Result := TMemo.Create(Self); // ici self est la form Result.Parent := Parent; Result.Left := Left; Result.Top := Top; end;
Pour détruire le TMemo utiliser la fonction Free.

Merci pour votre réponse rapide.
Pouvez-vous m'aider à implémenter votre fonction (voir les ??? dans l'appel de la fonction ) ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm1.FormActivate(Sender: TObject); begin CreateNewMemo(???,100,100); end; function CreateNewMemo(Parent: Twincontrol; Left, Top: Integer): TMemo; begin Result := TMemo.Create(Self); // ici self est la form Result.Parent := Parent; Result.Left := Left; Result.Top := Top; end;
Merci

16/12/2008, 16h59
Cl@udius

Salut

Le parent peut être Self donc Form1 en l'occurrence, ou tout autre contrôle un Panel par exemple.

@+ Claudius
16/12/2008, 16h59
Tardiff Jean-François
Si vous poser un TMemo sur une form, le parent du memo est la forme.

si vous poser un TPanel sur la form le parent du panel est la forme.

Si maintenant vous poser le le TMemo sur le panel, le parent du memo est le panel.

Donc.
Code:

1 2 3 4 5 CreateNewMemo(Form1,100,100); // création d'un TMemo sur la Tform Form1 CreateNewMemo(Panel1,100,100); // création d'un TMemo sur le Tpanel panel1

Code:

1 2 3 4 5 6 7 8 function CreateNewMemo(Parent: Twincontrol; Left, Top: Integer): TMemo; begin Result := TMemo.Create(Self); // ici self est la form Result.Parent := Parent; Result.Left := Left; Result.Top := Top; end;
Parent est ici le composant ou sera afficher le Memo.
Par exemple :
- si tu veux le mettre sur la fiche directement, met la fiche
- si tu veux le mettre sur un pannel, met le pannel.
Left et Top est fonction du parent.

A+

16/12/2008, 17h14
alainvh

Grand merci à tous deux ! (Tardiff Jean-François a tout à fait saisi à quel bas niveau je me situe en ce qui concerne la compréhension de la notion d'objet et d'héritage, c'est dur tout seul !).
Après plusieurs essais, ça marche ! Un nouveau Memo apparaît sur la forme :D
Mais comment connaître son nom (Memo1, Memo2,... ???) afin de pouvoir l'utiliser ?
Je suppose que l'on peut suivre la même démarche pour un autre composant (DBGrid, Datasource, etc...).

Je viens d'essayer ceci

@ Alainvh, essaye ceci :

TestMemo est ma fiche.

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
 
procedure TTestMemo.FormCreate(Sender: TObject);
Var
i, TH, TW: integer;
P,P2  : TMemo;
 begin
 TW := 320;
 TH := 200 ;
 p:=   Tmemo.Create(TestMemo);
 p2:=   Tmemo.Create(TestMemo);
 
With p do
   begin
   Parent := TestMemo;
   Top:= 20 ;
   Left := 20;
   Width := TW;
   Height := TH;
   end;
With p2 do
   begin
   Parent := TestMemo;
   Top:= 20 ;
   Left := 360; // Largeur + espace
   Width := TW;
   Height := TH;
   end;
 
end;

N'oublie pas de libérer par P.free, P2.free et suivant si plusieurs Memo.

@+,

Cincap

16/12/2008, 17h44
alainvh

Merci aussi à Andry et Cincap.

A Cincap, j'ai fait un bête copier-coller de votre solution. Résultat : erreur de compilation à la déclaration de variable var P : TMemo; (message : [Erreur] Unit1.pas(28): Identificateur non déclaré : 'TMemo')

Je pose une nouvelle question (car vos réponses me fournissent un super-éclairage !!!). L'aide Delphi nomme les parents de TMemo ( de TObject jusqu'à TCustomMemo) : comment savoir que c'est TWinControl qui doit être utilisé pour répondre à mon pb (cf. messages ci-dessus) ?
16/12/2008, 18h02
alainvh

Merci beaucoup, Cincap : ça baigne :D
Et en plus, cette discussion m'a fait faire un bon progrès d'ordre général.

Si d'aventure, quelqu'un peut m'éclairer sur ma dernière question, je passerai de bonnes fêtes ;) (L'aide Delphi nomme les parents de TMemo ( de TObject jusqu'à TCustomMemo) : comment savoir que c'est TWinControl qui doit être utilisé pour répondre à mon pb (cf. messages ci-dessus) )?

Encore merci à tous et... bons réveillons !!!

Cordialement,
Alain
16/12/2008, 18h07
Paul TOTH

Citation:

Envoyé par alainvh

Grand merci à tous deux ! (Tardiff Jean-François a tout à fait saisi à quel bas niveau je me situe en ce qui concerne la compréhension de la notion d'objet et d'héritage, c'est dur tout seul !).
Après plusieurs essais, ça marche ! Un nouveau Memo apparaît sur la forme :D
Mais comment connaître son nom (Memo1, Memo2,... ???) afin de pouvoir l'utiliser ?
Je suppose que l'on peut suivre la même démarche pour un autre composant (DBGrid, Datasource, etc...).

en effet :) il n'est pas ici question d'héritage ^^

Memo1 est un champ de Form1 créé automatiquement par Delphi quand on pose le composant. Lors de la création de la fiche, via la lecture du DFM le champ Button1 reçoit l'instance TMemo créée automatiquement par la fiche.

dans ton cas, il suffit d'ajouter un champ Memo2 dans la fiche et lui affecter le résultat de la fonction CreateNewMemo() :)

Tu peux aussi définir sa propriété Name si tu le désires.
16/12/2008, 18h22
alainvh

Merci Paul Toth.
Trop costaud pour moi :oops:
Mais je suis preneur d'un petit peu de code pour m'éclairer (je ne demande pas qu'on m'écrive la solution de mon pb, mais un exemple de code, ça aide bien ;) ).
16/12/2008, 19h51
cincap

Avec D6, pas de !problème

@ Alainvh,

Citation:

A Cincap, j'ai fait un bête copier-coller de votre solution. Résultat : erreur de compilation à la déclaration de variable var P : TMemo; (message : [Erreur] Unit1.pas(28): Identificateur non déclaré : 'TMemo')

Avec D6, pas de problème à la compilation et les deux Memo sont à leur place, vérifie ton copier/coller et renomme ta fiche bien entendu.

@+,

Cincap
16/12/2008, 20h07
alainvh

Merci Cincap.

Pas de pb, ça marche (remontez de trois messages dans la discussion ;))
Encore merci, et très bonne soirée !

Citation:

Envoyé par alainvh

Merci Paul Toth.
Trop costaud pour moi :oops:
Mais je suis preneur d'un petit peu de code pour m'éclairer (je ne demande pas qu'on m'écrive la solution de mon pb, mais un exemple de code, ça aide bien ;) ).

il faut comprendre ce qu'il se passe, voila tout :)

1ère notion à connaître, la portée des champs d'un objet
Code:

1 2 3 4 5 6 7 8 9 10 type TMonObject=class private // ici c'est privé public // ici c'est public published // ici c'est publié end;
je te laisse recherche le détail, mais ce qui nous importe ici c'est que la partie "published" apparaît dans les RTTI (voir également {$M+}), soit des informations sur l'objet; ce qui veux dire qu'il est possible de retrouver l'adresse d'un champ d'après son nom sous forme de chaine de caractère.

c'est ce mécanisme qu'utilise Delphi et la classe TForm (voir TReader) pour renseigner automatiquement les champs publiés de la fiche (Button1, Memo1...)
Code:

1 2 3 4 5 6 type TForm1 = class(TForm) Button1 : TButton; // published par défaut ! end; {$R *.DFM} // lien vers le fichier DFM
le fichier DFM va contenir ceci
Code:

1 2 3 4 5 6 7 8 object Form1:TForm1 object Button1: TButton Left = 10 Top = 10 Caption = 'Hello' end end
TForm est conçu de telle sorte que lorsque l'on crée l'instance par un TForm1.Create, elle va lire le fichier DFM lié à l'exécutable et découvrir qu'elle doit contenir un bouton Button1 en position 10, 10 avec le texte 'Hello'

du coup
Code:

1 2 3 Form1 := TForm1.Create(nil); // Form1.Button1 est automatique le bouton en question !
si tu crées le bouton toi même il t'appartient de faire tout le boulot !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private Button2 : TButton; // ou public, ou published, selon tes besoins // Delphi n'en a pas besoin car il n'est pas dans le DFM ! end; procedure Tform1.FormCreate(Sender: TObject); begin Button2 := TButton.Create(Self); Button2.Parent := Self; Button2.Left := 10; Button2.Top := 10; Button2.Caption := 'Hello'; end;
et ici le DFM indiquera simplement que la propriété OnCreate de Form1 pointe sur FormCreate :)
Code:

1 2 3 4 object Form1: TForm1 OnCreate = FormCreate end