[D7] StringGrid: Annuler le mouseDown lors d'un double click

Version imprimable

Bonjour à tous,

J'ai un StringGrid et un évènement MouseDown dessus qui permet de sélectionner une ligne lors d'un clic dessus.
J'ai également un évènement DblClick qui permet de lancer une fenêtre donnant des détails de l'élément concerné.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TfrmListe.sgMainDblClick(Sender: TObject); var ACol, Arow, i, j:integer; strTmp: String; frmMain2: TfrmMain; begin sgMain.MouseToCell(sgMain.ScreenToClient(Mouse.CursorPos).X,sgMain.ScreenToClient(Mouse.CursorPos).Y,Acol,ARow); if (Arow>2) then begin strTmp := sgMain.Cells[0, Arow]; frmMain2 := TfrmMain.Create(Self, strTmp); frmMain2.ShowModal; end; end;
Le problème, c'est que lorsque je ferme la fenêtre (même un simple showMessage, c'est pareil), il sélectionne la ligne du StringGrid là ou la souris à cliqué en dernier, là ou se trouvait le bouton "Fermer" de la fenêtre (il est toujours dans l'évènement DblClick).

J'ai essayé des processmessages, des Exit et tralala, mais rien n'y fait.

Comment faire pour annuler les effets du Double Clic de mon stringGrid dans l'évènement même ?

Merci d'avance.

08/04/2010, 16h40
BuzzLeclaire

@dacid,

Moi aussi je me suis amusé avec ces evenement Down, up, dblclick, click...

En définitive, je te conseil de tout gerer dans le MouseDown ou MouseUp et de ne rien faire avec le DblClick et Click, car de toute façon tu pourras interagire sur le DblClick dans le MouseDown et/ou Up.

Bye

Salut Buzz,

Merci pour le déclic... C'est bête, mais il fallait y penser:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TfrmListe.sgMainDblClick(Sender: TObject);
begin
  dblClicOnRow := True; // Variable globale pour dire qu'un double clic a été fait.
end;
 
procedure TfrmListe.sgMainMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var ACol, Arow, i, j:integer;
begin
  sgMain.MouseToCell(sgMain.ScreenToClient(Mouse.CursorPos).X,sgMain.ScreenToClient(Mouse.CursorPos).Y,Acol,ARow);
  if dblClicOnRow then begin // On vient d'un double clic
    // Gna gna gna
    dblClicOnRow := False;
    Exit;
  end;
  // Gna gna gna 2

Et le tour est joué ! :ccool:

08/04/2010, 18h02
BuzzLeclaire
Re,

Tu as mieux qu'une variable globale

Tu peux aussi tester si double clique dans l'evenement down
Code:

1 2 If Not(ssDouble in Shift) then // (si pas double-clique) begin
;)

Aide de Delphi :
Le type TShiftState est utilisé par les gestionnaires du clavier et de la souris pour déterminer l'état des touches Alt, Ctrl et Maj ainsi que l'état des boutons de la souris au moment où l'événement se produit. Voici un ensemble d'indicateurs et leur signification :

Valeur Signification
ssShift La touche Maj est enfoncée.
ssAlt La touche Alt est enfoncée.
ssCtrl La touche Ctrl est enfoncée.
ssLeft Le bouton gauche de la souris est enfoncé.
ssRight Le bouton droit de la souris est enfoncé.
ssMiddle Le bouton central de la souris est enfoncé.
ssDouble On a double-cliqué sur la souris.
09/04/2010, 09h09
dacid

Encore mieux !!! :D

Y a pas le bouton "double résolu", sur ce forum ? ;)