Comment détecter que la souris quitte un TListBox

Version imprimable

20/07/2006, 20h12
Peopleware

Comment détecter que la souris quitte un TListBox

J'ai un formulaire qui contient entre autres, trois TListBox.
J'effectue actuellement un traitement spécifique selon la position de la souris dans ces TListbox.

Je souhaite effectuer un autre traitement lorsque la souris quitte un TListBox au moment où la souris sort du TListBox.

Si la souris revient sur ce TListBox, je veux refaire le même traitement lorsqu'elle en sortira à nouveau.

Quelle est la meilleure façon de s'y prendre?

il faut dériver ta ListBox pour faire un nouveau composant répondant au message CM_MOUSEENTER et CM_MOUSELEAVE. ci-après une TImage dérivée, tu dois faire la même chose avec une ListBox, ou tout autre composant que tu souhaites.

Code:

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
36
37
38
39
40
41
42
43
44
45
 
unit UHoverImage;
(*
  Une TImage qui réponds aux évènement OnMouseEnter et OnMouseLeave
*)
 
interface
 
uses
  Classes, Controls, Messages, ExtCtrls;
 
type
  THoverImage = class(TImage)
  private
    FMouseEnter : TNotifyEvent;
    FMouseLeave : TNotifyEvent;
    procedure doMouseEnter(var Msg : TMessage); message CM_MOUSEENTER;
    procedure doMouseLeave(var Msg : TMessage); message CM_MOUSELEAVE;
  published
    property OnMouseEnter : TNotifyEvent read FMouseEnter write FMouseEnter;
    property OnMouseLeave : TNotifyEvent read FMouseLeave write FMouseLeave;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Supplément', [THoverImage]);
end;
 
procedure THoverImage.doMouseEnter(var Msg : TMessage);
begin
  if Assigned(FMouseEnter) then
    FMouseEnter(Self);
end;
 
procedure THoverImage.doMouseLeave(var Msg : TMessage);
begin
  if Assigned(FMouseLeave) then
    FMouseLeave(Self);
end;
 
end.

la procédure Register permet de rajouter le composant dans la barre de composants

... exception ... 'Class TListBox not found'

En compilant, dès le début de l'exécution, je reçois l'erreur:

Project ScrabbleCool.exe raised exception class EClassNotFound with message 'Class TListBox not found'. Process stopped. Use Step or Run to continue.

Mais j'ai probablement mal implanté ta suggestion.:oops:

Code:

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
 
  TMyTListBox_OnMouseLeave = class(TListBox)
    private
    FMouseEnter : TNotifyEvent;
    FMouseLeave : TNotifyEvent;
    procedure doMouseEnter(var Msg : TMessage); message CM_MOUSEENTER;
    procedure doMouseLeave(var Msg : TMessage); message CM_MOUSELEAVE;
  published
    property OnMouseEnter : TNotifyEvent read FMouseEnter write FMouseEnter;
    property OnMouseLeave : TNotifyEvent read FMouseLeave write FMouseLeave;
  end;
 
 
  TExistence = class(TForm)
    ListBox7plus1: TMyTListBox_OnMouseLeave;
    ListBoxCousins: TMyTListBox_OnMouseLeave;
    ListBoxSousMots: TMyTListBox_OnMouseLeave;
    ...
  end;
 
implementation
 
procedure TMyTListBox_OnMouseLeave.doMouseEnter(var Msg : TMessage);
begin
  if Assigned(FMouseEnter) then
    FMouseEnter(Self);
end;
 
procedure TMyTListBox_OnMouseLeave.doMouseLeave(var Msg : TMessage);
begin
  if Assigned(FMouseLeave) then
    FMouseLeave(Self);
end;

Qu'est-ce que je n'ai pas compris?

21/07/2006, 02h03
denokan

est-ce que StdCtrls (dans laquelle est déclarée la classe TListBox) est bien dans les uses ?

Précisions sur l'erreur

Oui, stdctrls est dans les 'uses'.
Il y a d'ailleurs d'autres références à 'TListBox' dans ce 'unit'.

Ce qui m'intrigue, c'est que l'erreur se produit à l'exécution, toujours après le 'CreateForm' du formulaire dans lequel j'ai défini mon nouveau TListBox.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 begin Application.Initialize; Application.CreateForm(TFormPrincipale, FormPrincipale); Application.CreateForm(TFormApropos, FormApropos); Application.CreateForm(TExistence, Existence); Application.CreateForm(TFormDefinitions, FormDefinitions); Application.CreateForm(TFormChargerDict, FormChargerDict); Application.CreateForm(TFormChrono, FormChrono); Application.CreateForm(TFormTester, FormTester); Application.CreateForm(TFormChrono2, FormChrono2); Application.Run; end.
Autrement dit, lorsque l'erreur se produit, il y a une flèche verte pointant sur l'instruction qui suit 'Application.CreateForm(TExistence, Existence);'

Ce fait devrait nous mettre sur une piste mais je n'ai pas suffisamment d'expérience en Delphi pour "voir" cet indice.

Erreur même en réduisant le code au minimum

Indice supplémentaire:
Si je réduis le code de façon qu'à ne redéfinir TListBox pour "un autre nom", la même erreur se produit.
Code:

1 2 3 4 5 6 7 8 9 10 TMyTListBox_OnMouseLeave = class(TListBox) end; TExistence = class(TForm) ListBox7plus1: TMyTListBox_OnMouseLeave; ListBoxCousins: TMyTListBox_OnMouseLeave; ListBoxSousMots: TMyTListBox_OnMouseLeave; ... end;
et j'ai mis en commentaire tout ce qui est relatif aux procédures
'doMouseEnter' et 'doMouseLeave'.

NOTE: info supplémentaire qui m'apparaît superflue mais sait-on jamais.
Lorsque je lance la compilation, je reçois trois messages, un pour chacune des déclarations ci-dessus dans 'TExistence' qui dit ceci:

Field Existence.ListBox7plus1 should be of type TListBox but is declared 'TMyTListBox_OnMouseLeave'. Correct the declaration?

et je réponds "NON".

21/07/2006, 08h21
denokan
ton problème vient sans doute de la façon dont tu incorpore le ListBox dérivé dans ton projet...
soit tu déclare le ListBox Dérivé dans ta form (comme tu le fais), et dans ce cas tu dois les créer manuellement, dans le OnCreate de ta form par exemple :
Code:

1 2 ListBox7plus1 := TMyTListBox_OnMouseLeave.Create(Self);
mais dans ces cas ces composants ne seront pas visible dans le concepteur de fiches

seconde méthode (à mon avis la plus appropriée), tu crée un fichier .pas (dans le dossier Lib de delphi par exemple) sur le modèle que je t'ai donné, tu fais les modifs pour ta classe, et ensuite tu installes le composant dans ta palette d'outils : Composant -> Installer un nouveau composant.