Discussion :

[petitcoucou31]

Bonjours a tous , Tapplication.ProcessMessages permet d'executer mes messages en files t'attente..

Cela ne semble pas fonctionner avec les evenements OnMouseLeave et OnMouseEnter .

Quelqu'un connait il une astuce pour forcer des evements lors d'un Tapplication.ProcessMessages.

merci

[Lung]

Cela ne semble pas fonctionner avec les evenements OnMouseLeave et OnMouseEnter .

Tu es sûr que tes évènement ont bien été déclanchés ?

[petitcoucou31]

En fait pour tester ces evements j'utilise un TLabel , meme si mon probleme vient d'un autre composant , il utilise les meme evenement

j'ai les 4 routines suivantes ( ultra simple ).

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
 
Procedure TForm1.boucle ;
repeat 
  application.processMessage;
until false ; 
 
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
   Label1.Color:=clred;
   Label2.Caption:='Enter';
end;
 
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
   Label1.Color:=cllime;
   Label2.Caption:='Leave';
end;
 
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Label2.Caption:='Move';
end;

Je declanche mes evements avec ma souris donc oui ils sont bien declanchés , puisque çà marche quand la boucle est pas active .

Par contre quand la boucle est active.

1° quand je survole "label1" , il devient rouge , donc je passe bien par l'evenement OnmouseEnter , mais çà ne change pas la valeur de "label2" ??

2° quand je survole plus "label1" , il passe pas au vert et je change pas non plus "label2" , donc je suposse ne pas passer par mon OnMouseLeave

3° le "label2" change a tout les coup quand il est dans le OnMouseMove


J'ai juste contaté que les message entre les evenement OnMouseLeave,
, OnmouseEnter et OnMouseMove ne sont pas les meme , peut etre cela a t il un insidence sur le Tapplication message ??

Pour l'instant je sais pas !!

voila ou j'en suis de mes investigations

bye

[glayag]

A mon avis, ca vient du fait que les OnMouseEnter et OnMouseLeave sont des messages de Delphi.
En principe, quand on implemente OnMouseLeave et OnMouseEnter, on utilise les messages CM_Enter et CM_Leave qui sont des messages special Delphi (non Windows).

Or, application.ProcessMessage dis a l'application de traiter les messages dans la file d'attente de WindowProc et ce n'est pas la WindowProc qui recoit les messages de type Cm_xxx donc OnMouseLeave et OnMouseEnter ne sont donc pas declenches.

[petitcoucou31]

j'en etais arrive un peu aux memes explications que les tiennes , donc il me reste a traiter ce qui se passe dans mes evenements OnMouseleave et OnmouseEnter dans des evenements traiter par Application.ProcessMessages ... , a moins que je trouve mieux !

merci quand meme et bye.