Discussion :

[DBBB]

Slt!

Soit le code suivant:

Code :

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

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?

[ElNan]

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

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

[ElNan]

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 :

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

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.

[DBBB]

Hum...


En tout cas, ça marche, merci!