Discussion :

[dacid]

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 :

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

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.

[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

[dacid]

Salut Buzz,

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

Code :

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

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é !

[BuzzLeclaire]

Re,

Tu as mieux qu'une variable globale

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

Code :

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

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.

[dacid]

Encore mieux !!!

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