Discussion :

[Ben_Le_Cool]

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.

[Nono40]

Essaye sur le composant Application.

[Ben_Le_Cool]

Essaye sur le composant Application.

Tu peux expliquer??
Merci.

[skywaukers]

bonjour,

Code :

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

Application.FindComponent( 'Form0');

@++
Dany

[Ben_Le_Cool]

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 :

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

(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.

[DMO]

Un exemple d'utilisation de FindComponent existe dans la

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

Je te suggère d'aller voir.

Si tu ne comprends toujours pas, essaye sur 'FindComponent'

[Ben_Le_Cool]

Un exemple d'utilisation de FindComponent existe dans la

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

Je te suggère d'aller voir.

Si tu ne comprends toujours pas, essaye sur 'FindComponent'

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.

[DMO]

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.

[rv66]

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

[rsc]

A mon avis, tu ne peux pas faire

Code :

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

FindComponent ("Form1.Label1");

mais

Code :

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

Form1 .FindComponent ('Label1');

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

Code :

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

nil .Visible := True;

c'est le Access Viloation assuré

[Nono40]

Code :

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

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

Faut faire :

Code :

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

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

[Ben_Le_Cool]

Code :

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

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

Faut faire :

Code :

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

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
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 :

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

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

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

[Nono40]

Plus compliqué mais possible, deux solution :
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.

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