Comment désactiver une touche activée par un KEYDOWN?

**celine33** · 04/10/2006, 16h00

Je m'explique:
Je voudrais pouvoir faire une multisélection dans une DBGrid sans obliger l'utilisateur à appuyer à la fois sur un élément de la grille et sur la touche Ctrl (mon appli doit en effet tourner sur PDA).
J'ai donc coder sur le OnCellClick de la DBGrid ceci :

Code :

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

1
2
    keybd_event(VK_CONTROL,0,WM_KEYDOWN,0); //touche enfoncée
    keybd_event(VK_CONTROL,0,WM_KEYUP,0);//touche relevée

Pour forcer la désactivation, sur le OnExit du composant et sur le OnCLose du formulaire j'ai :

Code :

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

1
2
  if getkeystate(VK_CONTROL)= 1 then
    keybd_event(VK_CONTROL,0,WM_KEYUP,0);

Malgré tout, une fois que j'ai quitté mon application (que je teste sur un PC), la touche Ctrl reste "virtuellement" enfoncée... pas moyen de la désactiver et je suis a priori obligée de redémarrer mon poste.

Une idée? Merci !

**Rayek** · 04/10/2006, 16h46

Sinon tu peux utiliser le SmdbGrid qui permet d'afficher une checkbox sur la gauche pour de la multiselection.

Le composant est gratuit et fonctionne très bien (je l'utilise depuis plusieurs années)

**Eric Boisvert** · 04/10/2006, 20h17

C'est un peu tordu ta multi-selection via la simulation de la touche CTRL.
Je me range facilement avec l'avis de Malatar...

Par contre, si tu tiens à conserver cette approche,
je te propose plutot l'API
SendInput...
pour la simulation des touches

Voici comment tu peux l'utiliser

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
 
var
  Input:TInput;
begin
  Input.Itype := INPUT_KEYBOARD;
  Input.ki.wVk := VK_CONTROL;
  Input.ki.wScan := 0;
  Input.ki.time := 0;
  Input.ki.dwExtraInfo := 0;
 
  Input.ki.dwFlags := 0;    // Preparation pour envoi Key DOWN
  SendInput(1, Input, SizeOf(Input));  //Send Key DOWN
  //Lecture de l'etat de VK_CONTROL
  if GetAsyncKeyState(VK_CONTROL) <> 0 then
  begin
      //Vk_Control est down! remet a UP!
      Input.ki.dwFlags := KEYEVENTF_KEYUP; // preparation pour envoi Key UP
      SendInput(1, Input, SizeOf(Input)); //Send Key UP
  end;

Envoyé par Microsoft

(a propos de la fonction keybd_event)
Windows NT/2000/XP:This function has been superseded. Use SendInput instead.

j'espère le tout conforme...

**said jamai** · 04/10/2006, 23h03

http://www.developpez.net/forums/sho...ight=Selection

**celine33** · 05/10/2006, 09h30

Bonjour à tous,
@Malatar: Je viens de tester les SMDBGrid. Sympa en multiselect avec les checkbox hormis l' "indicator" qui est borné à une taille d'au moins 23. Je pourrais utiliser ce composant si j'arrive à ne conserver que les checkbox et donc à enlever l'indicateur avec la flèche... mais il faut que je vois si c'est possible, car je dois placer 4 dbgrid sur une partie de mon écran PDA, c'est un peu serré (bref!)
Je continue mes tests avec ma méthode "tordue" dixit Eric Boisvert

J'ai remplacé la touche Control par la touche Espace qui a le même effet qu'une touche caractère. Je jongle en même temps avec les BookMark ... j'espèrepouvoir vous en dire plus dans le courant de la journée !

**celine33** · 05/10/2006, 10h08

Je teste les SMDBGrid et avec deux composants de cette classe sur un même formulaire, j'ai un plantage dans le OnMouseUp du .pas ici :

Code :

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

1
2
3
4
5
6
 
  if (Button = mbLeft) and
     (Cell.X >= IndicatorOffset) and
     (ACol <= FixedCols) and
     (Cell.Y >= TitleOffset) then
    CellClick(Columns[ACol])

Ca se produit parfois lorsque je passe d'une grille à l'autre en cliquant un élément.

**Rayek** · 05/10/2006, 10h27

Quel est l'erreur ?

**celine33** · 05/10/2006, 11h30

Voici l'erreur :
Violation d'accès à l'adresse 00491D23 dans le module 'monProjet.exe'. Lecture de l'adresse 0000000.
?
Tu as essayé de reproduire le cas?

Enfin, du coup, je change encore de composant. J'opte pour les DBCtrlGrid en insérant un CheckBox et un DBLabel. Je suis en train de tester cette solution...

**Rayek** · 05/10/2006, 11h36

Envoyé par celine33

Tu as essayé de reproduire le cas?

Non, car je sais pas ce que tu fais sur le onMouseUp

**celine33** · 05/10/2006, 14h40

Cet événement se déclenche mais il est codé dans SMDBGrid.pas, ça n'est pas mon code qui génère cette erreur.

Je n'ai rien sur le OnMouseUp dans mon code.

**Rayek** · 05/10/2006, 14h55

Bin je n'ai pas cette erreur avec ma version du smdbgrid (3.48), j'ai vérifié j'en ai 7 dans un programme (dans des onglets séparés)

**edam** · 06/10/2006, 01h13

Envoyé par said jamai

http://www.developpez.net/forums/sho...ight=Selection

**celine33** · 06/10/2006, 09h26

Salam Edam, merci pour ton code! Je m'en inspirerais si besoin.

La solution que je teste avec les CtrlGrid ne fonctionne pas encore. Je dois gérer un champ calculé sur le checkbox, j'espère avancer sur ce point!
a+

Comment désactiver une touche activée par un KEYDOWN?

Delphi

Discussions similaires

Partager

Partager