Slt!
Soit le code suivant:
Pourquoi le double clique ne fonctionne t'il pas SVP?
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;
Partager