Discussion :

[Mickey974]

Bonjour

J'ai un sérieux problème avec le message windows WM_NCLBUTTONUP. En effet, je ne parviens pas à capturer le relâchement du bouton gauche de la souris sur la barre de titre. Je ne peux capturer cet évènement uniquement lorsque la fenêtre est maximisée.

J'ai procédé comme suit :

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
 
// Section privée
  private
    { Déclarations privées }
    procedure WMNCLButtonDown(var Message: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
    procedure WMNCLBUTTONUP(var Message: TWMNCLButtonUp) ; message WM_NCLBUTTONUP;
 
// section implémentation
 
procedure TBase.WMNCLButtonDown(var Message: TWMNCLButtonDown);
begin
  if Message.HitTest = HTCAPTION then begin
    Caption := 'Position Down : ' +  IntToStr(Message.XCursor) + ' - ' +
      IntToStr(Message.YCursor) + ' - ' + IntToStr(Message.Result);
  end;
  inherited;
end;
 
procedure TBase.WMNCLBUTTONUP(var Message: TWMNCLButtonUp) ;
begin
   if Message.HitTest = HTCAPTION then begin
    Caption := 'Position Up : ' +  IntToStr(Message.XCursor) + ' - ' +
      IntToStr(Message.YCursor) + ' - ' + IntToStr(Message.Result);
   end;
   inherited;
end;

Autant le message WM_NCLBUTTONDOWN est parfaitement capturé dans toutes les conditions, autant WM_NCLBUTTONUP a un comportement très capricieux. Ne parlons même pas des évènements OnMouseUp de TForm.

Bref ... si quelqu'un a une solution ou une piste (en évitant les hook de préférences qui sont incompatibles avec certains antivirus), je le remercie par avance.

[Andnotor]

Commence par vérifier que les messages soient bien envoyés dans toutes les circonstances avec un utilitaire style Winspector.

[Mickey974]

Il n'y a pas de message pour WM_NCLBUTTONUP renvoyé mais WM_LBUTTONUP lorsque la fenêtre n'est pas maximisée. Le message WM_LBUTTONUP n'est interceptable d'aucune façon sous Delphi (à mon niveau de compétence bien entendu ).

WM_NCLBUTTONUP est renvoyé uniquement lorsqu'on maximise la fenêtre et qu'on clique sur la barre de titre.

La question est : Comment faire pour intercepter le message WM_LBUTTONUP qui se produit lorsqu'on appuie sur le bouton gauche de la souris sur la barre de titre et qu'on le relâche ensuite (toujours sur cette même barre de titre) ?

Merci par avance

[Mickey974]

Bonjour

Puisqu'apparemment personne n'a de solution pour ce problème (bug reconnu par Microsoft), voici une astuce pour parer à ce problème.

il suffit de rajouter ceci dans la procédure WMNCLButtonDown :

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
 
  private
    { Déclarations privées }
    procedure WMNCLButtonDown(var Message: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
    procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
 
...
 
{ section implementation }
 
procedure TBase.WMNCLButtonDown(var Message: TWMNCLButtonDown);
begin
  if Message.HitTest = HTCAPTION then begin
    Caption := 'Position Down : ' +  IntToStr(Message.XCursor) + ' - ' +
      IntToStr(Message.YCursor) + ' - ' + IntToStr(Message.Result);
  end;
  inherited;
  PostMessage(Self.Handle,WM_LBUTTONUP,0,0);
end;
 
procedure TBase.WMLBUTTONUP(var Message: TWMLButtonUp) ;
begin
   if Message.HitTest = HTCAPTION then begin
    Caption := 'Position Up : ' +  IntToStr(Message.XCursor) + ' - ' +
      IntToStr(Message.YCursor) + ' - ' + IntToStr(Message.Result);
   end;
   inherited;
end;

Ce n'est peut être pas très académique, mais cela a l'avantage d'être débloquant. On reçoit bien le message WM_LBUTTONUP, une fois que l'on relâche le bouton gauche de la souris.