Discussion :

[Peopleware]

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?

[denokan]

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 :

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
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

[Peopleware]

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.

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
 
  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?

[denokan]

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

[Peopleware]

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 :

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

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.

[Peopleware]

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 :

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

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".