Discussion :

[Jeankiki]

Salut à tous,

Quelqu'un sait-il comment faire pour se positionner dans une colonne spécifique d'un DBGrid par programmation en Delphi

J'ai plusieurs colonne et j'aimerai bien que suivant la valeur d'un champ dans une ligne d'un DBGrid, le curseur se positionne sur une autre colonne sur cette même ligne.

Merci d'avance pour votre aide

Jeankiki

[Wilco]

Tu peux peut-être utiliser la fonction :

Code :

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

MonQuery.MonChamp.FocusControl;

Wilco

[Jeankiki]

Merci Wilco, effectivement ça marche, mais maintenant le problème est que si j'utilise la touche Tabulation pour passer à la colonne suivante, ça marche mais si je fais encore Tabulation, il revient sur la colonne ou j'ai mi le FocusControl et il ne passe pas à la colonne suivante.

Voici mon code

Code :

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

1
2
3
4
5
6
7
 
procedure TfrmMain.dbgridXPrestaColExit(Sender: TObject);
    if dbgridXPresta.DataSource.DataSet.FieldByName('XCODE').AsInteger <> 100 then
    begin
      dbgridXPresta.Fields[6].FocusControl; // Field XFORFAIT
    end;
end;

As-tu une idée pour arrêter le FocusControl de se champ?
Jeankiki

[nisaes]

je parie que ton dbgridXPresta.DataSource.DataSet.FieldByName('XCODE').AsInteger <> 100 est vrai
lors de ton 2eme appui sur tab :
dbgridXPrestaColExit s'applique chaque fois que tu change de colone!

met un boolean a vrai (en variable globale) et ajoute le au test de ton if pour que le test ne soit vrai qu'une fois (n'oublie pas de réinitialiser ce boolean à faut si tu change de ligne!)

[Jeankiki]

Salut nisaes,

Voici mon code:

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
 
procedure TfrmMain.dbgridXPrestaColExit(Sender: TObject);
begin
  SetColonneForfait;
end;
 
procedure SetColonneForfait;
var
  num_ligne : integer;
  num_colonne : integer;
begin
  with frmMain do
  begin
    if dbgridXPresta.DataSource.DataSet.FieldByName('XCODENATURE').AsString = 'K' then
    begin
      with TStringGrid(dbgridXPresta) do
      begin
        //num_ligne := Row;
        num_colonne := Col;
        if (dbgridXPresta.DataSource.DataSet.FieldByName('XFORFAIT').AsInteger = 0) or (dbgridXPresta.DataSource.DataSet.FieldByName('XFORFAIT').AsString = '') then
          Col := 6
        else
          Col := 8;
        SetFocus;
      end;
    end;
  end;
end;

Peux-tu me dire comment placer la valeur booléen afin de ne pas avoir de problème

Merci d'avance pour ton aide

Jeankiki

[nisaes]

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 TfrmMain.dbgridXPrestaColExit(Sender: TObject); 
begin 
  if afaire then SetColonneForfait; 
end; 
 
procedure SetColonneForfait; 
var 
  num_ligne : integer; 
  num_colonne : integer; 
begin 
  with frmMain do 
  begin 
 
  afaire :=false;
 
    if dbgridXPresta.DataSource.DataSet.FieldByName('XCODENATURE').AsString = 'K' then 
    begin 
      with TStringGrid(dbgridXPresta) do 
      begin 
        //num_ligne := Row; 
        num_colonne := Col; 
        if (dbgridXPresta.DataSource.DataSet.FieldByName('XFORFAIT').AsInteger = 0) or (dbgridXPresta.DataSource.DataSet.FieldByName('XFORFAIT').AsString = '') then 
          Col := 6 
        else 
          Col := 8; 
        SetFocus; 
      end; 
    end; 
  end; 
end;

si changement de row (onchange de n'importequel champ ou sur tab si dernière colone afaire:=true;
et sur formcreate ou lors de l'in du prog afaire:=true;
et tu déclare afaire avec la variable tform

question subsidaire :
le focus d'une colone change avant ou après le déclanchement de ColExit?


[Balise ajoutée par King Kaiser]

[Jeankiki]

Salut nisaes,

En fait, j'ai résolu le problème hier soir et j'ai oublié de mettre la solution sur le site, voici comment j'ai procédé

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
 
procedure SetColonneForfait;
var
  num_ligne : integer;
  num_colonne : integer;
begin
  with frmMain do
  begin
    if dbgridXPresta.DataSource.DataSet.FieldByName('XCODENATURE').AsString = 'K' then
    begin
      if ColFocus = False then
        begin
          dbgridXPresta.DataSource.DataSet.FieldByName('XFORFAIT').FocusControl;
          ColFocus := True;
        end
      else
        begin
          dbgridXPresta.DataSource.DataSet.FieldByName('XFAC').FocusControl;
          ColFocus := False;
        end;
    end;
  end;
end;

Et j'ai mi le ColFocus en variable globale comme tu le proposais, j'ai du mettre SetColonneForfait dans dbgridXPrestaColExit.

Et le résultat voulu fonctionne correctement.
Pour ta question subsidiaire, il me semble que le focus change après le ColExit, mais je suis pas certain à 100%
Merci à toi
Jeankiki

[nisaes]

ben oui, voila pourquoi ça marchait lors du tab sortant de la colone et que tu y revenait après! Tu peux donc en être sur!
A+