Utilisation de la methode inheritsFrom

Bonjour,

j'essaie vainement de déterminer si un composant que je passe en paramètre d'une methode dérive de TcustomForm mais je n'y arrive pas ! voici le code que j'utilise:

Code:

---

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

var Hwnd : THandle     constructor MaClasse.Create(AOwner: TComponent) var MyClass : TComponentClass;   begin MyClass := AOwner.ClassType;   if MyClass.inheritsFrom(TCustomForm) then Hwnd := TCustomForm(AOwner).Handle else Hwnd := INVALID_HANDLE_VALUE end;

---

si j'execute Classe := MaClasse.Create(SELF) où SELF est de type TForm et que je trace dans débogueur l'éxécution j'obtiens toujours :

MyClass.inheritsFrom(TCustomForm) à FALSE avec "types incompatibles TClass et Class reference"

Quelqu'un peut-il m'aider ?

Merci par avance

Bonjour,
Pour tester la classe d'un objet, tu peux utiliser l'opérateur is :

Code:

---

1 2 3 4

if aOwner is TCustomForm then Hwnd := TCustomForm(AOwner).Handle; else Hwnd := INVALID_HANDLE_VALUE;

---

Je pense que ça doit répondre à ton besoin.
Bon courage.
eb.

Salut

Ce code fonctionne correctement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

constructor TMaClasse.Create(AOwner: TComponent); var MyClass : TClass; begin MyClass := AOwner.ClassType; if MyClass.InheritsFrom(TCustomForm) then Hwnd := TCustomForm(AOwner).Handle else Hwnd := INVALID_HANDLE_VALUE; end;

---

@+ Claudius

Merci pour la célérité de vos réponses mais les deux solutions que vous me proposez ne semblent pas répondre à ma question.

La première solution : elle va tester que la classe de AOwner est TCustomForm or AOwner peut être un objet d'une classe dérivée la classe TForm descendante de TCustomForm

la seconde solution: elle renvoie systématiquement false

Globalement mon idée est la suivante: je veux créer un formulaire (nommons le F1 de classe TF1 = class(TForm) ) à partir d'un formulaire initial (nommons FInit de classe TFinit = class(TForm) ). Pour ce faire j'appelle :

F1 := TF1.Create(FInit) et dans le constructeur de TF1 je m'assure que AOwner est de type formulaire uniquement.

Avez-vous une solution ?

Merci de votre aide :D

et comme cela :

Code:

---

1 2	if (aOwner is TFinit) then with (aowner as TFinit).....

---

Je comprends mais

Code:

---

aOwner is TCustomForm

---

retournera True si aOwner est une instance classe TCustomForm ou d'une classe héritée de TCustomForm (ce qui est le cas de ta classe TFinit) donc ma solution me semble correcte... Ou alors, j'ai pas compris le problème ...:roll:

Citation:

---

je m'assure que AOwner est de type formulaire uniquement.

---

Il ne veut que des types "formulaire" dérivés de TFinit.

Citation:

---

Il ne veut que des types "formulaire" dérivés de TFinit.

---

Aaah, ok d'accord, j'ai compris !! Je recommencerai plus ...:lol:
Alors effectivement, la solution de Fabrice est la bonne ...

Je me demande si je suis bien clair ?8O

si vous préférez la classe TFinit n'est pas connue de TF1 (elles sont dans des unités différentes et doivent s'ignorer (comme simone...)). Ce que veut savoir TF1 c'est si AOwner est de type formulaire (en gros si la classe de AOwner est une classe dérivée (on se moque de savoir laquelle) de TCustomForm ce qui m'assure d'avoir un Handle. Par exemple si AOwner est un TPanel Hwnd devra valoir invalid_HAndle_value car ce n'est pas un formulaire.

Do you understand what I mean ?

En tout cas je vous remercie de vous creusez la tête sur

Donc je me permets de réitérer ma proposition :

Code:

---

aOwner is TCustomForm

---

Ca te retournera True si aOwner et une instance de la classe TCustomForm ou d'une classe héritée de TCustomForm.
Ca ne te conviens pas ?

Désolé mais il me renvoie FALSE donc cela ne marche pas :oops:

Citation:

---

Envoyé par imi

Désolé mais il me renvoie FALSE donc cela ne marche pas :oops:

---

Ca n'est pas possible. C'est de la faute d'autre chose. Si le is te renvoie False, c'est que AOwner n'est pas instance d'une classe dérivée de TCustomForm.

As-tu vérifié que tu passais bien le bon owner ? As-tu vérifier que TFinit était bel et bien descendant de TCustomForm ? C'est bête à demander mais l'erreur doit être quelque part par là. is ne ment jamais (sauf si tu travailles avec des objets inter-DLL, mais bon...)

Bonne remarque SRJD ! En effet la méthode create se trouve dans une dll et est appelée par l'application principale. De plus je suis absolument sûr que AOwner est un descendant de type TCustomForm puisque c'est une fiche standard delphi. Mais en quoi le fait que ma méthode se trouve dans une dll peut influencer le résultat de méthode de classe inheritsfrom ? si tu as une piste je suis preneur.:P

J'ai plus qu'une piste, j'ai l'explication :P

En fait le is, tout comme le InheritsFrom, utilise les entrées de la VMT des classes en présence. Voir vmtParent dans cette QR. Il itère sur chaque parent successif à partir de la classe de l'objet, jusqu'à trouver une valeur égale à la classe que tu donnes. Mais cela suppose que les VMT soient en un exemplaire unique (une par classe), pour que la comparaison fonctionne.

C'est bien entendu le cas à l'intérieur d'un même module (exe ou DLL). Mais ce n'est pas du tout le cas entre différents module (entre ton exe et ta DLL). Car chaque module a sa propre liste de VMT. C'est le même problème pour les RTTI.

Un des moyens de remédier à cela, c'est d'utiliser les paquets. En effet, les paquets sont des DLL améliorées qui partagent leurs VMT (et leurs RTTI, accessoirement).

L'autre moyen, beaucoup moins élégant, est de programmer une alternative à InheritsFrom, qui se base sur les ClassName, plutôt que sur les classes elles-mêmes.

Code:

---

1 2 3 4 5 6 7 8 9 10

function InheritsFromEx(ChildClass, ParentClass : TClass) : boolean; begin Result := True; while ChildClass <> nil do begin if AnsiSameText(ChildClass.ClassName, ParentClass.ClassName) then exit; ChildClass := ChildClass.ParentClass; end; Result := False; end;

---

Merci pour tes explications sur les VMT srjd. Pour ce qui est de ta deuxième solution je l'avais déjà implémentée mais j'espérai avoir quelque chose de plus élégant en effet.
Je te remercie pour ta disponibilté et ton savoir ...:P