Discussion :

[jojo86]

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 !

[ero-sennin]

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 :

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

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;

@+

[jojo86]

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

Code :

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

1
2
 
Form1.Tlabel1.Delete;

Mais ça marche pas...

[rsc]

Code :

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

Form1 .Label1 .Free;

[jojo86]

Quand je fais ça

Code :

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

1
2
 
Form1. Label1. Free;

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

[ero-sennin]

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 :

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

Form1.MonLabelDynamique.Free;

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