Discussion :

[thierrybo]

Bonjour,

Quelle est la méthode pour affecter à partir du Form2 l'évènement OnClick d'un Item de Menu situé sur le Form1, sachant que la fonction est sur le Form2 ?

Dans le form2, je met par exemple :

Form1.MenuItem1.OnClick := MaProcedure;

procedure Form2.MaProcedure(Sender: TObject);
....
end;

Ça compile, mais il ne se passe rien quand je clique sur le menu.

Thierry B.

[Paul TOTH]

où as-tu placé le code qui fixe le OnClick ?

[thierrybo]

Dans le Form 2 :

Code :

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

1
2
3
4
procedure TForm2.FormActivate(Sender: TObject);
begin
  Form1.MenuItem1.OnClick := MaProcedure;
end;

Le pire c'est que j'ai créé un prototype vide avec deux fenêtres reproduisant "à priori" uniquement cette partie du code et ça marche très bien.
Mais dans le vrai programme, il passe bien sur la ligne

Form1.MenuItem1.OnClick := MaProcedure;

et MaProcedure est aussi utilisé dans Form2 directement par un menu et il fonctionne.

[Paul TOTH]

OnCreate me semble plus adapté, non ?

[thierrybo]

En fait dans mon programme les forms sont non modales. A chaque fois que je change de fenêtre les évènements Ajouter / Supprimer du menu de la fenêtre principale doivent être modifiés en fonction de la fenêtre activée, c'est pourquoi j'ai utilisé Activate au lieu de OnCreate.

[thierrybo]

J'ai à moitié trouvé.

Dans le form1, j'ai déjà un évènement par défaut sur MenuItem1, défini visuellement. Dans ce cas réaffecter l'évènement dans le code ne fait plus rien, c'est toujours celui défini visuellement qui s'exécute. Qu'est-ce qu'il faut faire dans ce cas ?

Edit : le fait d'affecter l'évènement en conception ou directement dans le code ne change rien, dans les deux cas je ne peux plus le modifier ensuite.

[Paul TOTH]

Utilises-tu un TActionList ?

[thierrybo]

Non,

j'aurai pu, est-ce que ça pourrait changer quelque chose ?

[thierrybo]

Ah oui, ça marche si je change plutot

Form1.Action1.OnExecute := MaProcedure;

dans Form2. Bon je vais utiliser TActionList, mais est-ce normal que la méthode que j'utilisai ne fonctionne pas ?

[Paul TOTH]

je pense que tu as un problème de séquence dans l'appel de ton code

TActionList force certaines propriétés, c'est pour cela que j'y ai pensé...mais tu n'es pas obligé de l'utiliser.