Discussion :

[Okaryn]

Hello,

Dans un fiche (FMain) j'ai un composant JvPageControl avec 4 onglets. Dans ces onglets j'ai des TGroupBox.

J'aimerais déclencher une action lorsque le curseur de la souris passe au dessus de certains contrôles (activés ou non). Je me suis donc dirigé vers la fonction ControlAtPos, mais cette fonction ne me renvoi que le composant JvPageControl, pas les composants contenus dedans.

Pour tester j'ai créé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TFMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  tmpCoord : TPoint;
  tmpcontrol : TControl;
begin
  tmpCoord.X := X;
  tmpCoord.Y := Y;
  tmpcontrol := FMain.ControlatPos(tmpCoord, True, True);
  If tmpcontrol = nil then
  begin
    FMain.Caption := 'Rien...';
    exit;
  end;
    FMain.Caption := tmpcontrol.Name;
end;

Une idée pour résoudre ce problème ?

[Okaryn]

A force de test, de débug, etc... j'ai un peu avancé.

Je me suis aperçu qu'il faut activer la méthode OnMouseMove sur tous les contrôles pour que cet événement soit géré. Le faire sur la fiche principale n'est pas suffisant, l'évènement OnMouseMove étant transmis au controle où se trouve la souris et pas à la fiche.

Existe-t-il un autre moyen ? car je ne peux pas assigner une procédure à tous les composants, surtout que certains n'ont pas d'évènement OnMouseMove.

[Okaryn]

Ca y'est, j'ai trouvé !!

Si cela intéresse certains, j'intercepte les messages de Windows à l'aide d'un composant TJVAppEvents (composants Jedi VCL) et en utilisant l'évènement OnMessage. On peut faire sans ce composant, mais je ne sais plus utiliser les hooks & cie

La procédure est exécutée à chaque que le souris est déplacée sur la fiche, quelque soit le composant ou conteneur où elle se trouve.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TFMain.JvAppEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  tmpControl, tmpParentControl : TControl;
begin
// Ne traite que les messages WM_MouseMove
  If Msg.message <> WM_MouseMove then
    Exit;
// Trouve le controle sous le curseur
  tmpControl := Fmain.ControlAtPos(FMain.ScreenToClient(Mouse.CursorPos), True, True);
  tmpParentControl := nil;
// Boucle pour trouver les controles enfants
  While (tmpControl is TWinControl) and (tmpParentControl = nil) do
// Si ce controle contient des enfants
  If (TWinControl(tmpControl).ControlCount > 0) then
  begin
// Mémorise le controle parent
    tmpParentControl := tmpControl;
// Retourne l'éventuel controle enfant
    tmpControl := TWinControl(tmpControl).ControlAtPos(TWinControl(tmpControl).ScreenToClient(Mouse.CursorPos), True, True);
// S'il n'y en pas, il faut utiliser le controle parent
    if tmpControl <> nil then
      tmpParentControl := nil;
  end
  else
    Break;
  Application.ProcessMessages;
// Si on a retenu un control parent, on l'utilise
  if tmpParentControl <> nil then
    tmpControl := tmpParentControl;
// Si aucun controle sous la souris, sort de la procédure
  if tmpControl = nil then
    Exit;
// Traitement à effectuer sur le controle sous la souris
  FMain.Caption := tmpcontrol.Name;
end;