Passage d'une colonne à l'autre avec [enter] dans un TDbGrid
kilojun
Messages postés
7
Date d'inscription
vendredi 23 février 2007
Statut
Membre
Dernière intervention
19 mai 2008
-
22 mars 2007 à 01:07
youhibadelphi Messages postés 187 Date d'inscription jeudi 16 octobre 2008 Statut Membre Dernière intervention 20 février 2010 - 5 sept. 2009 à 14:26
youhibadelphi Messages postés 187 Date d'inscription jeudi 16 octobre 2008 Statut Membre Dernière intervention 20 février 2010 - 5 sept. 2009 à 14:26
3 réponses
hassaine
Messages postés
23
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
18 mai 2009
22 mars 2007 à 05:18
22 mars 2007 à 05:18
bonjour, pour ce déplacer d'un champ a un autre il faut utilisé la tabulation mais pour la touche entrée il te faut toute un programmation
kilojun
Messages postés
7
Date d'inscription
vendredi 23 février 2007
Statut
Membre
Dernière intervention
19 mai 2008
22 mars 2007 à 11:44
22 mars 2007 à 11:44
Merci
youhibadelphi
Messages postés
187
Date d'inscription
jeudi 16 octobre 2008
Statut
Membre
Dernière intervention
20 février 2010
3
5 sept. 2009 à 14:26
5 sept. 2009 à 14:26
salut
Procedure Tform.dbgrid1KeyDown(Sender:Tobject; Var Key:Word; Shift:TshiftState)
begin
if key=13 then
if Dbgrid1.SelectedIndex<Dbgrid.Columns.Count-1
then dbgrid1.SelectedIndex:=Dbgrid1.selected+1
else
if not DBGrid.Dataset.Eof do
begin
DBGrid.Dataset.Next;
SelectedIndex := 0;
end;
end.
solution proposée par TicTacToe sir forum developpez.com
yahia
Procedure Tform.dbgrid1KeyDown(Sender:Tobject; Var Key:Word; Shift:TshiftState)
begin
if key=13 then
if Dbgrid1.SelectedIndex<Dbgrid.Columns.Count-1
then dbgrid1.SelectedIndex:=Dbgrid1.selected+1
else
if not DBGrid.Dataset.Eof do
begin
DBGrid.Dataset.Next;
SelectedIndex := 0;
end;
end.
solution proposée par TicTacToe sir forum developpez.com
yahia
