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...

[ShaiLeTroll]

J'ai juste ouvert "System.UITypes.pas"
L'avantage de la version Pro\Ent d'avoir le code !

Paf, ligne 21 avant la toute première déclaration de type,
je vois SCOPEDENUMS, le nom de la directive est pile-poil dans le sujet

"embarcadero SCOPEDENUMS" pouf
2009 : Scoped Enums (Delphi) - Embarcadero Technologies
XE2 : Enumérations de portée (Delphi) - Embarcadero Documentation Wiki

Et sinon, il y a :
Nouveautés de Delphi et C++Builder 2009 et Enumérations fortement typées (C++0x)
Nouveautés de Delphi et C++Builder 2010
Nouveautés de Delphi et C++Builder XE
Nouveautés de Delphi et C++Builder XE2

En général, les pages "Nouveautés" indiquent les emmerdes prévisibles que va rencontrer le développeur !

il y a une grosse par de Chance dans la recherche méticuleuse !

[arkhamon]

Et voila encore un mythe qui s'écroule...
Bon j'avais moi aussi ouvert le fichier sus-cité, mais je dois avouer que j'ai encore un peu de mal avec les directives de compil dans tous les sens pour XE2.
Faut dire aussi que comme je consacre environ 5h par semaine à mon activité de développement, je ne consacre probablement pas assez de temps à la spéléologie numérique.
Je vais essayer de faire un effort, mais je dosi avouer qu'en plus du peu de temps dont je dispose, je suis resté je pense au niveau de Delphi7, n'ayant même pas exploité toute la richesse de D2005 et encore moins de D2007...