Bonjour ,

Lorsque la souris passe sur un panel, j'aimerais changer le curseur de celle-ci, j'ai écris le code suivant qui ne fonctionne pas ( avec zp_PageA4 : TPanel ) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
procedure TMainForm.zp_PageA4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var
    l_SvcCursor : IFMXCursorService;
 
begin
      if TPlatformServices.Current.SupportsPlatformService(IFMXCursorService, IInterface(l_SvcCursor)) = True then
        l_SvcCursor.SetCursor(crHandPoint);
...
Pourtant cela fonctionne pour certaines procédure ou les traitements peuvent être un long, le curseur pour patienter apparait bien, apparemment, avec fmx, on ne peut pas changer le curseur de la souris lorsque celle-ci se déplace sur un composant ?

Est ce que ça fonctionne pour quelqu'un ?