Discussion :

[Invité]

Bonjour,

Cela fait un petit moment que je cherche mais je ne trouve pas..
Je souhaite passer dans le onActivate de ma form quand ma souris est sur mon application, sans forcément cliquer dessus.
Et passer dans le onDeActivate quand la souris n'est plus sur mon application.

Pouvez vous m'aider ?

Merci

[Andnotor]

Regarde OnMouseEnter, OnMouseLeave.

[Invité]

Merci j'ai rajouté les évènements sur mon panel et cela fonctionne.

Le problème c'est que j'ai un bouton sur mon panel et quand je vais dessus je rentre dans le onMouseLeave de mon Panel

[ShaiLeTroll]

Faudrait voir avec la WndProc ou un OnMessage pour écouter la souris en amont !
Il est vrai une propriété MousePreview manque comme la KeyPreview

Voir aussi un Hook mais c'est un peu plus lourd comme technique

Tu peux mettre dans les OnMouse* du TButton le même gestionnaire que celui du Panel
Sender te permettra de savoir si c'est le Panel ou le Bouton

On a eu un sujet en 2012 sur un MouseMove qui remontait au parent, je ne le retrouve pas

Essaye un TSpeedButton, c'est un GraphicControl, avec un peu de chance, il ne provoquera pas de OnMouseLeave

Sinon, utilise GetCursorPos\Mouse.CursorPos et ControlAtPos, tu pourras savoir si le Parent du TButton est ton Panel

Code :

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

1
2
3
4
5
6
7
8
procedure OnMouseLeave(Sender);
begin
  if Sender = MonFameuxPanel then
  begin       
    if MonFameuxPanel.Parent.ControlAtPos(MonFameuxPanel.Parent.ScreenToClient(Mouse.CursorPos)) <> MonFameuxPanel then
      Je suis vraiment dehors
  end;
end;

ControlAtPos ne cherche QUE les enfants directs !

[Invité]

Merci beaucoup