TmouseButton et constantes
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:
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...
