Creation d'un composant dans le create d'un autre composant

**inspecteur rick** · 05/01/2009, 18h16

Bonsoir

Je pense qu'à la lecture du titre du post vous vous rendez compte que je suis un débutant.
J'ai créé une classe TTraitement qui dérive de Tobject. Cette classe contient une variable qui est du type TDosCommand qui dérive de TComponent.

Dans le create de TTraitement je met
DosCommand:=TDosCommand.create(self)

Le compilateur bloque dessus et me dis que TTraitement et TComponent sont incompatibles. En passant la souris sur le self, je vois qu'il est du type TTraitement.
Je croyais que mettre self dans le create voulez dire que DosCommand est un objet dont il est son propre propriétaire. J'suis un peu perdu....

Vous pouvez m'éclaircir les idées. Merci.

**Yurck** · 05/01/2009, 18h43

Pour ce soir je vais te dire que tu peux mettre

Code :

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

1
2
DosCommand:=TDosCommand.create(Nil)

en espérant que d'autres auront le courage de se lancer dans une explication plus fournie.

**popo** · 06/01/2009, 13h31

Si un composant crée un autre composant dans l'une de ses méthodes, Self se réfère alors au premier composant et non au composant en cours de création qui sera possédé par le premier composant.

En clair c'est ton TTraitement qui est référencé par Self

**Fabrice ROUXEL 1** · 06/01/2009, 14h11

Bonne année et bonne santé

Effectivement self est un mot clé qui référence la classe en cours soit TTraitement.

@+

**inspecteur rick** · 08/01/2009, 17h52

Salut

Merci ca marche

**inspecteur rick** · 08/05/2009, 12h22

Je relance car depuis mon passage à delphi 2009, l'exécution lève l'erreur
"Impossible de terminer le thread crée de façon externe" sur le TDosCommand.free.

**Cl@udius** · 08/05/2009, 12h39

Salut

La destruction du composant TDosCommand doit se trouver en théorie dans le destructeur de la classe TTraitement. Est-ce le cas ?

Ce n'est pas un TDosCommand.Free mais un DosCommand.Free ou FDosCommand.Free que tu exécute je suppose.

@+ Claudius