OnMouseUp et double click

Version imprimable

Slt! :D

Soit le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFormAccueil.StringGrid2MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var rec: TRect;
    ACol, ARow: LongInt;
begin
     if ssDouble in shift then
     begin
          StringGrid2.MouseToCell(X,Y,ACol,ARow);
          rec:=StringGrid2.CellRect(ACol,Arow);
          ShowMessage('X: '+IntToStr(X)+' Y: '+IntToStr(Y)+'           CellWidth: '+IntToStr(Rec.right));
     end;
end;

Pourquoi le double clique ne fonctionne t'il pas SVP?

14/12/2004, 15h46
ElNan

Il faut que tu déplaces ton code sur le OnMouseDown ou mieux sur le OnDblClick.. :wink:

Pourquoi ? Je ne sais pas. Je regarde...

Alors je viens de regarder le code sur TControl et notamment les messages Windows reçus sur TControl.
En ce qui concerne le double-clic, c'est à dire les message WM_LBUTTONDBLCLK, WM_RBUTTONDBLCLK, WM_MBUTTONDBLCLK, Delphi déclenche les événement de TControl OnDblClick et OnMouseDown avec le ShiftState à ssDouble. Donc effectivement tu peux gérer le double clic sur ces deux événements seulement mais pas sur le OnMouseUp.

Par exemple, à la réception du message WM_LBUTTONDBLCLK, Delphi éxécute :
Code:

1 2 3 4 5 6 7 8 procedure TControl.WMLButtonDblClk(var Message: TWMLButtonDblClk); begin SendCancelMode(Self); inherited; if csCaptureMouse in ControlStyle then MouseCapture := True; if csClickEvents in ControlStyle then DblClick; DoMouseDown(Message, mbLeft, [ssDouble]); end;
Voila le pourquoi.

14/12/2004, 16h02
DBBB

OnMouseUp et double clique

Hum... 8O

En tout cas, ça marche, merci! :)