Quel est l'équivalent de Findcomponent pour les Forms ?

Bonjour,

Je cherche une fonction équivalente à Findcomponent qui fonctionne pour les Forms.
J'ai des forms Form0, form1, form2, etc...
Selon une variable i, je fais quelques traitement sur la form Form"i".
Et ça ne m'interesse pas de faire une suite de if, ou de procéder avec un Case.
Merci.

Essaye sur le composant Application.

Citation:

---

Envoyé par Nono40

Essaye sur le composant Application.

---

Tu peux expliquer??
Merci.

bonjour,

Code:

---

Application.FindComponent( 'Form0');

---

@++
Dany

Toujours avec FindComponent, pourquoi quand je change de form, j'ai un access violation??
Je m'explique: Je suis dans la form0, si je met

Code:

---

(Findcomponent('Form'+IntToStr(i)+'.Label1') as TLabel).Visible:=True;

---

J'ai un access violation, même si je sais que ce composant existe sur cette form.
Une suggestion?

Merci.

Un exemple d'utilisation de FindComponent existe dans la :faq:

http://delphi.developpez.com/faq/?pa...#findcomponent

Je te suggère d'aller voir.

Si tu ne comprends toujours pas, essaye :f1: sur 'FindComponent' :wink:

Citation:

---

Envoyé par DMO

Un exemple d'utilisation de FindComponent existe dans la :faq:

http://delphi.developpez.com/faq/?pa...#findcomponent

Je te suggère d'aller voir.

Si tu ne comprends toujours pas, essaye :f1: sur 'FindComponent' :wink:

---

Je crois que tu as mal compris ma question.
Je sais comment utiliser findcomponent, dans le lien que tu as donné, si tu remarques on cherche des composants dans la même Form. Moi je cherche un composant qui appartient à une form différente.
Je sais que ce composant existe, que cette form existe et qu'elle est créée.

Non je crois avoir très bien compris. Je t'explique :
Peu importe que le parent soit l'application, ou un autre TComponent.
Tu remarqueras que dans la FAQ, le résultat de FindComponent est récupéré dans une variable et que cette variable est testée avant d'être utilisée.

C'est exactement ce que tu dois faire pour éviter les Access Violation. Tu en as car tu utilises directement le résultat de FindComponent qui peut être potentiellement à Nil. C'est le cas pour toi. Donc au cas ou le résultat de FindComponent est Nil (fais 'as' plutot que le transtypage TClasse(...) dans la FAQ), tu n'utilises pas la variable, ou encore mieux tu leves une exceptions ou fais un assert. Ainsi cela t'aidera à mieux débugger ton application.

Bon courage.

le composant nommé Form1.Label1 existe sur la Form1 ?
Ce ne serait pas plutot Label1 de la Form1 ?

A mon avis, tu ne peux pas faire

Code:

---

FindComponent ("Form1.Label1");

---

mais

Code:

---

Form1 .FindComponent ('Label1');

---

d'où l'erreur : le composant n'est pas trouvé, le retour est nil, et un

Code:

---

nil .Visible := True;

---

c'est le Access Viloation assuré :x

Citation:

---

Envoyé par Ben_Le_Cool

Code:

---

(Findcomponent('Form'+IntToStr(i)+'.Label1') as TLabel).Visible:=True;

---

---

Faut faire :

Code:

---

1 2	(TForm(Application.Findcomponent('Form'+IntToStr(i))).FindComponent('Label1') as TLabel).Visible:=True;

---

Citation:

---

Envoyé par Nono40

Citation:

---

Envoyé par Ben_Le_Cool

Code:

---

(Findcomponent('Form'+IntToStr(i)+'.Label1') as TLabel).Visible:=True;

---

---

Faut faire :

Code:

---

1 2	(TForm(Application.Findcomponent('Form'+IntToStr(i))).FindComponent('Label1') as TLabel).Visible:=True;

---

---

Merci bien Nono, ça marche très bien.

Pour jouer aux exigeants, j'ai une autre question :lol: :lol: :lol:
J'ai le même problème avec les procédures. Je veux appeler une procedure qui se trouve dans une autre form.
Si je met ce code:

Code:

---

(TForm(Application.Findcomponent('Form'+IntToStr(i))).MaProcedure;

---

j'ai une erreur de compilation.
Une astuce??
Merci.

Plus compliqué mais possible, deux solution :
:arrow: Tu crées un modèle de fiche et tes fiches doivent ensuite descendre de ce modèle plutot que du simple TForm. Dans ce modèle tu définie une méthode virtuelle que tu surcharges dans les fiches finales.

:arrow: Tu utilises RTTI pour obtenir l'adresse de la méthode :
http://nono40.developpez.com/sources/source0086/