Discussion :

[Riko]

Bonjour,
Dites comment faire pour desactiver la touche CTRL

Merci

[rbag]

Un bon coup de pied dedans devrait suffire

sérieusement, tu veux la désactiver ou et pourquoi (dans ton logiciel, dans windows, dans un composant particulier, etc... ???)

[Riko]

dans mon appli
sur un grid

lorsque je fais CTRL click il met en multiselection

alors que je ne veux qu'il fait çà

je sais, vous allez me dire que'il suffit d'attribuer false à la valeur multiselection du grid
mais ce que je veux savoir si y a t'il autre moeyn à part çà

merci

[Denis69]

Eventuellement capturer les touches control dans le OnKeyDown (mais bon courage) !

[rbag]

Eventuellement capturer les touches control dans le OnKeyDown (mais bon courage

c'est peut-être la solution, tu peux désactiver le multi select quand la touche ctrl est appuyée (et le remettre au relachement dans le OnKeyUp). C'est bien sur pas le plus simple.

[Riko]

et comment on fait pour changer dgMultiSelect par code
?
Merci

[rbag]

Bon, j'ai une solution, à mon avis il y a sûrement plus propre (voire changer de méthode...) en tout cas, ça marche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if ssCtrl in Shift then DBGrid1.Options := DBGrid1.Options - [dgMultiSelect];
end;
 
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if not (dgMultiSelect in DBGrid1.Options) then DBGrid1.Options := DBGrid1.Options + [dgMultiSelect];
end;