Discussion :

[imi]

Un nouveau défi pour les experts DELPHI.

Le décor :je suis en train de créer une application composée d'une barre de menu principale (gérée par un TActionManager) uniquement. A partir de cette application je lance des formulaires (contenus dans des DLL) correspondant à des modules distincts; chaque formulaire comporte un TActionManager contenant les éléments du menu associé. Lorsqu'un formulaire est exécuté, les éléments de son menu doivent fusionner avec les éléments de la barre principale et de plus les mises à jour des actions doivent se refléter sur la barre de menu principal (actions enabled checked etc..)

La question :
Est-il possible de faire cela ?

La réponse :
Oui, je l'ai fait mais il reste des problèmes : par exemple certains éléments de menu doivent changer leur état checked mais je bute sur une erreur "Transtypage de classe incorrecte" quand j'essaie de le faire...
Le second problème est que mes éléments de menu ne se mettent pas à jour dans la barre de menu principale...

Avez-vous des idées ?

[philnext]

Tu nous mets le code qui génére le 'transtypage incorrect' ?

[imi]

Ce code se trouve dans la dll :

Code :

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

1
2
3
4
procedure madll.MonMenuUpdate(Sender: Tobject)
begin
  MonMenu.Checked := NOT MonMenu.Checked;
end;

où Monmenu est un TAction contenu dans mon TActionManager

[philnext]

Essayes de passer par une variable intermédiaire pour voir.

Code :

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

1
2
3
 
bTemp := not(   MonMenu.Checked);
  MonMenu.Checked :=bTemp;

[Cl@udius]

Salut

Ce code se trouve dans la dll :

Code :

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

1
2
3
4
5
 
procedure madll.MonMenuUpdate(Sender: Tobject)
begin
  MonMenu.Checked := NOT MonMenu.Checked;
end;

A priori ce code ne correspond pas à l'event Update d'un TAction, mais plutôt à celui d'un Execute.
Je ferais plutôt ceci sur le Execute:

Code :

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

1
2
3
4
5
 
procedure madll.MonMenuExecute(Sender: Tobject)
begin
  with TAction(Sender) do Checked := not Checked;
end;

@+ Claudius

[imi]

Merci pour vos réponses les gars. mais dans les deux cas ça ne marche pas !
Claudius, delphi me mets "EInvalidCast error..." quand je fais ce que tu proposes...

C'est comme si il considérait que MonMenu n'est pas un TAction alors que s'en est bien un....

[Cl@udius]

Tu es sûr que MonMenu est un TAction ?