Bonjour les gens,

Sous XE7, je pose un TPopupMenu que je veux refermer automatiquement par un déclenchement de timer au bout de 5 secondes.
Je code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
procedure TFormMain.TimerPopupTimer(Sender: TObject);
begin
  PopupMenu1.CloseMenu;
  TimerPopup.Enabled := False;
end;
A la compilation, impossible de poser un point d'arrêt sur CloseMenu.
Je regarde dans le doc où je vois:

Ferme le menu surgissant à l'écran.
Appelez CloseMenu pour fermer le menu surgissant.
Mais rien n'y fait. Alors je remonte dans le code Delphi et je trouve dans FMX.Menus:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
procedure TPopupMenu.CloseMenu;
begin
end;
Ceci explique cela ....


Mais bon, ça ne résout pas mon problème. Comment je le fais disparaître ce fichu popupmenu ???


Quelqu'un pourrait jeter un coup d’œil sur XE8 pour voir si ça a été modifié ?