Discussion :

[ced00]

Bonjour, j'ai besoin de détecter un clic de souris dans un stringgrid, bien sur j'utilise l'evenement onclick lorsque l'utilisateur selectionne la cellule.

Mais il y a un cas ou cela ne marche pas.

Mon stringgrid est éditable, (goediting à true) et lorsque l'utilisateur est en train de remplir une cellule et qu'il clique sur cette même cellule, (pour revenir en arrière corriger une faute de frappe) dans ce cas l'évenement onclick reste muet (j'ai essayé également onmouseup, onmousedown et onmousemove)

Y aurait-il un moyen quelquonque de détecter ce clic ?

Merci

[Sub0]

OnSelectCell ?

[ced00]

Non, en fait aucun controle courant ne réponds quand la cellule est en cours d'édition, pour l'instant j'ai bricolé un truc en positionnant le curseur de la souris à l'extérieur de mon tableau lorsque la cellule est éditée, comme ça si l'utilisateur veut re-cliquer dessus il est obligé de re-survoler le tableau et à ce moment la onmousemove réponds.

Mais bon, c'est du bricolage, j'aimerais trouver une solution plus formelle.

Si quelqun à une idée....

Merci

[Sub0]

Une solution consisterait à détecter le clic de souris avec GetAsyncKeyState...
Tu vérifies ensuite que la souris se trouve bien dans la cellule avec PtInRect et Mouse.CursorPos...
Cela pourrait donner ceci :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
{----------------------------------------------------------------}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  Application.OnMessage := AppMessage;
End;
 
{----------------------------------------------------------------}
Procedure TForm1.AppMessage(Var Msg: TMsg; Var Handled: Boolean);
Begin
  With StringGrid1 Do
    If (GetAsyncKeyState(1) And 32768 <> 0) And
       (PtInRect(CellRect(Col, Row), ScreenToClient(Mouse.CursorPos))) And
       (EditorMode) Then
    Begin
      OnEditMouseDown;
      Repeat Until (GetAsyncKeyState(1) And 32768 = 0);
      OnEditMouseUp;
    End;
End;
 
{----------------------------------------------------------------}
Procedure TForm1.OnEditMouseDown;
Begin
  MessageBeep(0);
End;
 
{----------------------------------------------------------------}
Procedure TForm1.OnEditMouseUp;
Begin
End;

[ced00]

Alors là ............. chapeau je ne comprends pas comment ça marche, mais ça marche au poil.

Merci beaucoup et je vais de ce pas me documenter sur GetAsyncKeyState

[Sub0]

Je t'explique dans les grandes lignes. Pour les détails ->

Application.OnMessage définit la procédure qui sera déclenchée lorsqu'un nouveau message système est détecté par l'application (évènement souris, clavier, statut fenêtre, etc...). GetAsyncKeyState est une fonction qui permet de connaître l'état du clavier et de la souris. Le chiffre 1 en paramètre correspond au bouton gauche. Ce chiffre est issue de la liste des constantes prédéfinies "VK_"... Le fait d'ajouter "And 32768" à la valeur retournée par GetAsyncKeyState permet d'obtenir un résultat binaire (égal ou différent de zéro). Pour le reste du code, je suppose que tu as compris, sinon n'hésite pas à poser des questions, à+

[ced00]

Impec, grace à tes explications et à l'aide de Delphi, j'ai pu récupérer ton code et le modifier pour gérer dans le même mouvement les touches VK_Right et VK_LEFT qui me posaient le même problème.

Résolu au dela de mes espérances donc.

Merci

[Sub0]

Maintenant que tu as compris, j'en profite pour te montrer comment il faut procéder pour obtenir l'appui de touche en simultanné (combinaisons de touches). Il faut mémoriser l'état des touches dans un tableau de booléans et utiliser celui-ci plutôt que l'état retourné par la fonction GetAsyncKeyState :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var 
  Etat: Array[0..255] Of Boolean;
 
{----------------------------------------------------------------} 
Procedure TForm1.AppMessage(Var Msg: TMsg; Var Handled: Boolean); 
Var
  x: Byte;
Begin
  For x := Low(Etat) To High(Etat) Do
    If ((GetAsyncKeyState(x) And 32768) <> 0) Then Etat[x] := True Else 
    If ((GetAsyncKeyState(x) And 32768) = 0) Then Etat[x] := False;
 
{ <- le reste de ton code ici... -> }
End;

Ainsi, pour connaître l'état du bouton gauche, utilise plutôt Etat[VK_LBUTTON].
Par exemple, si je veux détecter l'appui du bouton gauche avec la touche Ctrl enfoncée :

Code :

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

If (Etat[VK_LBUTTON]) And (Etat[VK_CONTROL]) Then ...

Voici une démo utilisant ce procédé : http://sub0.developpez.com/delphi/mouse.zip

à+

[ced00]

Ok effectivement cela rends les acces aux touches beaucoup plus simple.

Merci pour le code.


Dans un premier temps je fini mon appli et lorsque j'en serais au stade peaufinage / optimisation je monterais un type d'acces comme celui ci.

(Car pour l'instant j'en suis encore au stade bourre bourre bourre il faut que ce soit fini pour hier )