Discussion :

[arkhamon]

Bonjour à tous,
question probablement un peu bête masi bon. Comme je bloque...
Je suis sous FMX et pas sous VCL...
Voila j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
procedure TFFenetrePerso.ArmureNomMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  if button = mbRight then shwomessage('Click droit');
  if button = 1 then shwomessage('Click droit');
  if Button = TMouseButton(1) then showmessage('');
end;

La première ligne me colle une erreur de compil mbRight non déclaré. J'ai trouvé la déclaration de TMouseButton dans System.UITypes :
TMouseButton = (mbLeft, mbRight, mbMiddle);
Mais nulle part je ne trouve une définition de mbRight. D'ailleurs, ca me fait penser que j'avais eu le même problème avec caFree...
La seconde ligne me colle un type incompatible (je m'y attendais un peu mais bon qui ne tente rien n'a rien), et la troisième elle fonctionne (normal) mais je trouve super lourd de devoir faire ce genre de bricolage...

Quelqu'un aurait il des infos sur ces définitions de constantes qui semblent l'être pour l'unité mais qui sont inatteignables dans le code ? Pour être plus précis, je ne trouve nulle part la définition de ces constantes...

[yvslms]

essaie TMouseButton.mbRight (TMouseButton::mbRight compile en C++)

[arkhamon]

essaie TMouseButton.mbRight (TMouseButton::mbRight compile en C++)

Tu veux dire ca :

Code :

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

1
2
3
4
5
procedure TFFenetrePerso.ArmureNomMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbRight  then showmessage('');
end;

Je pense avoir essayé mais de mémoire, il me collait un type incompatible entre Integer et Button...
Mais je referai un test ce soir...

[arkhamon]

Ben v'la t-y pas que ça marche "TMouseButton.mbRight"...
Je crois bien que j'avais tout essayé sauf ça...

Du coup ca risque d'être pareil pour caFree que j'avais jamais réussi à faire marcher...
Merci yvslms. Les autres aussi remarque...

[ShaiLeTroll]

En C++Builder, le spécificateur de classe TMouseButton est obligatoire en XE2 car déclaré en enum class.
une nouveauté du C++0x !
En Delphi, ils ont reepris la même chose : la coupable, c'est la directive {$SCOPEDEUNMS ON} - Enumérations de portée (Delphi)

Je sais que mon collègue a pesté contre ça durant la migration de 2007 à XE2 des objets COM car des énumérations sont passées à enum class !

[arkhamon]

Effectivement ca a l'air d'être ça.
Juste un truc : vous tenez de où ces infos ? Je veux dire y a une bible quelque part ou un truc de ce genre ? Par ce que je suis preneur.
Me dites pas que c'est le fruit d'un travail de recherche méticuleux dans les méandres de 12350 sites dédiés à Delphi, ça ruinerait tous mes espoirs...