Discussion :

[Invité]

Bonjour,

Le code sur lequel je travaille utilise la propriété Tag d'un PopupMenu pour stocker un état lié à ce menu.
Tout marchait très bien, mais sur les récentes compilations c'est la catastrophe.
Le Tag en question ne veut plus changer de valeur et reste nul.

J'ai essayé et à plusieurs endroits dans le code :
- PopupMenu1.Tag := 1;
- PopupMenu1.Tag := Integer(True) ;
- PopupMenu1.Tag:=1;

A l'exécution, je vois bien que la valeur ne change pas. Et en regardant en "pas à pas", la valeur ne change effectivement pas. J'ai essayé avec et sans l'optimisation du code, pensant que ça pouvait venir de là. De plus, j'ai fait attention à reconstruire systématiquement.

J'ai essayer de faire l'inverse. J'ai initialisé le Tag à 1, puis j'ai pu changer la valeur de Tag sans problème à 0.

Avez-vous une idée ?
Merci.

[Rayek]

Un bout de code serait le bien venu, car comme cela impossible de pouvoir savoir d'où vient le problème

[Invité]

J'avais ça :

Code :

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

1
2
3
4
5
with  FormMain do
      ...
      PopupMenu1.Tag := 1;
      ...
end;

Mais le Composant posant problème était sur une autre forme. Il y avait du coup, semble-t-il, un conflit avec le 'with'. Reste à savoir pourquoi le problème ne s'est jamais présenté avant...

Corrigé :

Code :

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

1
2
3
4
5
with  FormMain do
      ...
      FormPrinc.PopupMenu1.Tag := 1;
      ...
end;

[Rayek]

J'avais ça :

Code :

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

1
2
3
4
5
with  FormMain do
      ...
      PopupMenu1.Tag := 1;
      ...
end;

Mais le Composant posant problème était sur une autre forme. Il y avait du coup, semble-t-il, un conflit avec le 'with'. Reste à savoir pourquoi le problème ne s'est jamais présenté avant...

Corrigé :

Code :

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

1
2
3
4
5
with  FormMain do
      ...
      FormPrinc.PopupMenu1.Tag := 1;
      ...
end;

D'où la remarque que l'on sort souvent, de nommer correctement ces composants (genre popPrinc et PopMain).