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?