Discussion :

[OutOfRange]

Bonjour

Je mets au point un nouveau composant visuel et j'aurais besoin de connaître la position du curseur au-dessus du contrôle parent ce qui déterminera le comportement de mon compo
Un truc du genre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Property MonComposant.Parent.CursorPos:TPoint

Si qqn peut me donner une piste

[Aka Guymelef]

Bonjour,

tu pourrais faire quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
interface
  TComposant = class(TComponent)
  protected
   function GetParentCursorPos: TPoint;
  public
   property ParentCursorPos: TPoint read GetParentCursorPos;
  end;
 
implementation
 
function TComposant.GetParentCursorPos
begin
  Result := Parent.ScreenToClient(Mouse.CursorPos);
end;

[OutOfRange]

Salut Aka Guymelef

En fait je n'ai pas correctement formulé mon pb
Je souhaite que mon compo change d'aspect lorsque le curseur le survole
Je veux donc détecter la présence du curseur au-dessus
Pour ça j'ai l'événement OnMouseMove
Mais je voudrais aussi qu'il reprenne son aspect initial quand le curseur "quitte" mon compo

Or, j'ai besoin de sa méthode Paint
Il me faut donc un descendant de TGraphic
Et il n'y a pas d'événement OnExit
En fait mas question est : comment détecter que le curseur quitte le compo ?
Et merci pour...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Parent.ScreenToClient(Mouse.CursorPos);

Je garde ça chaud

[Andnotor]

Les versions récentes de Delphi ont les événements OnMouseEnter, OnMouseLeave.

Si tu ne les as pas dans ta version, tu peux les coder comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
procedure CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
procedure CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;

Utilise la notification d'entrée plutôt que le OnMouseMove qui régénérera ton affichage beaucoup trop souvent .

[OutOfRange]

WWWWWOOOUUUAAAAWWWWW !!!
Des fois, y'a qu'à demander
Mon D6 perso ne me permettait pas ça
Merci Andnotor
C'est au poil!

Utilise la notification d'entrée plutôt que le OnMouseMove qui régénérera ton affichage beaucoup trop souvent

Tout bon !!!