Discussion :

[free07]

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 ?

[Thierry Laborde]

Bonjour,

Pourquoi faire comme ça, alors qu'il suffit de définir la propriété Cursor de votre Panel pour que le curseur change automatiquement quand on est dessus ?

[free07]

Bonjour,

Efectivement, c'est beaucoup plus simple comme cela et ça fonctionne merci.