Discussion :

[Teddy]

Bonjour,

Je constate un comportement bizarre de Firemonkey (HD, XE5).
Je place 2 Tbuttons sur ma form.
Je souhaite qu’un click sur un bouton rende alternativement visible ou invisible l’autre bouton :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Visible := not Button2.Visible;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Visible := not Button1.Visible;
end;

Le fonctionnement est correct pour les 4 ou 5 premiers clicks, et devient erratique ensuite.
Et quand je déplace le curseur de la souris hors du bouton clické, tout se passe comme si un nouvel évènement Onclick se produisait.
Je n’ai pas ce genre de problème en VCL.
Ce comportement est identique si j’utilise l’évènement OnMouseUp au lieu de OnClick.

Si quelqu’un peut me dire ce qui cloche dans ce code minimal, je l’en remercie d’avance !

[free07]

Bonjour,

J'ai XE4 et j'ai mis deux boutons sur une fiche principale avec ton code, cela marche très bien ( j'ai du cliquer une bonne cinquantaine de fois ).

As-tu essayé de créer un nouveau projet, mettre deux boutons et juste le code que tu indiques pour voir si cela fonctionne ?

[Teddy]

Bonjour,

J'ai XE4 et j'ai mis deux boutons sur une fiche principale avec ton code, cela marche très bien ( j'ai du cliquer une bonne cinquantaine de fois ).

As-tu essayé de créer un nouveau projet, mettre deux boutons et juste le code que tu indiques pour voir si cela fonctionne ?

Oui, j'ai créé ce petit programme juste pour tester, après avoir eu ce problème (et d'autres) dans une application plus conséquente.
Je te remercie beaucoup d'avoir répondu, parce que tu es sur XE4, et du coup j'ai testé sur XE2 (je n'ai pas XE4).
Je n'avais même pas pensé à faire cet essai !
Eh bien ça marche sans aucun problème.

Il me reste à espérer qu'une bonne âme fasse cet essai sur XE5, afin que je sache si je suis tombé sur une version farces et attrapes.

Merci encore.

[Papy214]

Testé avec XE5 ! No problemo !

[Teddy]

Ok, merci Papy214.
J'ai réinstallé XE5, mais c'est toujours pareil.
Je me demande si ce n'est pas dû à une application tierce. Je vais les désinstaller.

[Teddy]

Juste pour info, ce problème était dû à la carte graphique. Je ne vois pas le rapport, mais c'est un fait.
Pourtant aucun autre logiciel, y compris Delphi XE2, n'avait posé problème.
Tout va bien après remplacement de la carte par un autre modèle.
Comprenne qui peut...

[free07]

Peut être un problème de driver de la carte graphique, je suppose que tu a vérifié que celui-ci était bien à jour.

[Teddy]

Peut être un problème de driver de la carte graphique, je suppose que tu a vérifié que celui-ci était bien à jour.

Ben non justement ! Je n'avais pas mis à jour les drivers....
La même remarque m'a été faite après avoir contacté Embarcadero.
Après la mise à jour (toute fraîche, le driver date de décembre 2013), mon problème a disparu.
Il reste juste que, dans mon exemple, le bouton 2 reste bleu après avoir été cliqué (mais pas le bouton 1).
Mais c'est vraiment un détail de cosmétique qui ne m'importe absolument pas !
A l'avenir je serai moins négligent sur les mises à jour....