Discussion :

[heart100]

salut a tous , j'ai un dbgrid des données delphi , je sais comment filtrer avec un edit ou chercher avec un edit en utilisant locate , mais ce que je cherche , c'est comment chercher dans un champ dbgrid sans edit et sans combobox ,, seulement quand j'appuie sur un touche clavier par exemple "A" , l'indicateur va automatiquement sur l'enregistrement qui commence par A.

[tourlourou]

Il faut utiliser les événements du clavier, comme OnKeyDown.

[heart100]

Oui je le savais l'idée mais comment programmer ?

[FOCUS77]

Bonsoir à tous

voila je te propose un code.

// DBGrid1.ReadOnly:=True ;
//Form1.KeyPreview:=True ;

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
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Val:string;
begin
if Key in [65..122] then   // uniquement les touches alphabétiques.
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'] ;
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
 end;

[heart100]

Bonsoir à tous

voila je te propose un code.

// DBGrid1.ReadOnly:=True ;
//Form1.KeyPreview:=True ;

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
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Val:string;
begin
if Key in [65..122] then   // uniquement les touches alphabétiques.
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'] ;
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
 end;

Malheuresement votre code ne marche pas . et Merci pour l'aide

[FOCUS77]

Bonjour heart100

je l'ai essayé (avec Lazarus 1.6RC2) de 2 méthodes différentes et il marche très bien
vérifiez si vous n'avez rien oubliez. merci.

//Form1.KeyPreview:=True ;

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
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
var Val:string;
begin
if Key in [65..122] then
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'];
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
 end;

//Form1.KeyPreview:=False ;

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
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Val:string;
begin
if Key in [65..122] then
 begin
 Table.Filtered:=false  ;
 Table.Filter:='NOM_FBR='+Quotedstr((Chr(Key)+'*'));
 Table.Filtered:=True;
 
 if Table.FieldValues['NOM_FBR']<> Null then
 Val:=Table.FieldValues['NOM_FBR'];
      Table.Filtered:=false  ;
      Table.Locate('NOM_FBR',Val,[])  ;
 end;
end;