Comment ajouter un composant par programmation ?

Bonsoir à tous, je voulais savoir s'il était possible d'ajouter plusieur Tlabel et Tedit mais par programation...

Lorsqu'on clique sur un bouton, on vient par exemple créer un Tedit...

Merci de votre aide !

Salut,

Biensur que l'on peut créer les objets (composants) par programmation. C'est ce qu'on appelle de la création dynamique.

Pour, par exemple, créer un label, voici un code exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button1Click(Sender: TObject); var // Création d'une variable du type de l'objet à créer MonLabelDynamique:TLabel; begin // Création de l'objet avec comme propriétaire Form1 MonLabelDynamique:=TLabel.Create(Form1); // Assignation du parent MonLabelDynamique.Parent:=Form1; // Définition du caption MonLabelDynamique.Caption:='C''est un label dynamique'; // Position en X MonLabelDynamique.Left:=100; // Position en Y MonLabelDynamique.Top:=100; end;

---

@+ ;)

Et donc, dans la suite logic, pour en supprimer un??? j'ai essayé avec

Code:

---

1 2	Form1.Tlabel1.Delete;

---

Mais ça marche pas...

Code:

---

Form1 .Label1 .Free;

---

Quand je fais ça

Code:

---

1 2	Form1. Label1. Free;

---

j'ai une erreur de compliation qui dit que ça n'est pas déclaré...

Salut,

Lorsque tu crées un composant, tu lui donnes un nom comme par exemple, dans mon code précédent, c'était MonLabelDynamique ...

Donc si tu veux détruire un objet, il te faut faire comme ceci :

Code:

---

Form1.MonLabelDynamique.Free;

---

Si tu n'as pas saisi, n'hésites pas ;)