Discussion :

[KKKKKKKK]

Bonjour,

J'utilise une DBGrid dans laquelle, je sélectionne un enregistrement, ensuite, j'effectue quelques opérations comme du filtrage, ... et au retour, l'enregistrement initialement sélectionné est centré sur la DBGrid or j'aimerais qu'il retrouve sa place initiale.

Plus généralement, comment fait-on pour indiquer à une DBGrid quel enregistrement elle doit afficher sur sa 1ère ligne ?

Je n'arrive pas utilser TopRow car il n'est pas accessible !

Y a-t-il une solution ?

Merci d'avance

[ShaiLeTroll]

hum, il faut essayer de jouer un peu

Déclare une classe dans l'unité ou tu veux changer tes lignes

Code :

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

THackDBGrid = class(DBGrid);

normalement, dans cette unité, tu vas pouvoir accèder au propriétés protected (tu as un tuto à ce sujet)

Code :

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

THackDBGrid (MaGrille).TopRow := ...

Par contre, j'ignore si cela fonctionne vraiement, car la DBGrid affiche DataSet, contrairement à une TStringGrid où tu as toute la grille en mémoire, la DBGrid gère cela plus subtilement ... j'avais eu envie de faire ça un jour à mes débuts, je n'ai pas réussi, c'est que c'est une sacrée bestiole ce DBGrid

ou sinon simuler un WM_VSCROLL (la DBGrid gère complètement ce message à la main dans la méthode surchargé WMVScroll), la Grille est un composant Delphi pur, un composant comme le TListView qui est une encapsulation de classes Windows, intègre en général la fonction (message) pour changer le premier item visible (XX_GETFIRSTVISIBLELINE)

[gduo200]

J'ai pas essayé !

Filtrer le dataset de telle sorte que seul subsite l'enregitrement en cours
il devrait se placer au début de la grille
Supprimer le filtre (ou remettre l'ancien )
pourquoi se déplacerait-il ?

Sinon, il ya des tas d'autres composants DBGrid dont certains on une propriété 'hauteur de la ligne' (JvDBUltimGrid de la JVCL ou SMDBGrid de SMComponents). Mais la faut faire des Maths ! et peut-être s'assurer que la Grille n'affiche que des lignes entières.

[ShaiLeTroll]

La DBGrid est un composant compliqué, il réagit au filtre, biensur via son DataLink, mais le fait d'afficher les mêmes choses au même endroit n'est pas fondamental, sachant que tu peux enchainer des filtres différents, ...

[Sunchaser]

Bonjour,

Je n'ai peut être pas bien saisi ce qui était recherché, mais je me permet d'ajouter tout de même mon grain de sel ...
Une idée qui peut, peut être, servir de piste : j'ai utiliser l'idée d'un TBookmark et une astuce trouvée dans la FAQ Delphi pour indiquer l'enregistrement qui doit apparaitre en début de liste dans le DBGrid; et ceci semble fonctionner même après un filtre et cie ...

Donc un bout de code:
. j'ouvre la table, je place un Bookmark, et je recale la liste sur l'enregistrement 'ciblé' par le Bookmark

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
 
procedure TForm2.Button16Click(Sender: TObject);
var
lo : TLocateOptions ;
PosGrid : integer;
I : integer;
begin
TableAide1Paradox.Active := true;
 
  lo:=[loCaseInsensitive];
  DSaide.DataSet.Locate(DSaide.DataSet.Fields.Fields[0].DisplayName, 'H', lo);
 
  bm := DSaide.DataSet.GetBookmark;
 
  PosGrid := TDrawGrid(DBGrid2).Row;
    for I := 1 to PosGrid - 1 do
      begin
        PostMessage(DBGrid2.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
      end;
end;

. je filtre le Dataset sur un autre enregistrement - histoire de jouer - puis je 'libère' la table du filtre et recale la liste comme précédemment

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
 
procedure TForm2.Button18Click(Sender: TObject);
begin
DSaide.DataSet.Filtered := false;
    DSaide.DataSet.Filter := ' ALPHAB = ''U''';
DSaide.DataSet.Filtered := true;
end;
//---------------------------------------------------
procedure TForm2.Button19Click(Sender: TObject);
var
PosGrid : integer;
I : integer;
begin
DSaide.DataSet.Filtered := false;
DSaide.DataSet.GotoBookmark(bm);
  PosGrid := TDrawGrid(DBGrid2).Row;
    for I := 1 to PosGrid - 1 do
      begin
        PostMessage(DBGrid2.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
      end;
end;

J'ai trituré un peu le DBGrid dans sa hauteur, et il semble que la liste se recale toujours comme il faut.

En espérant aider,
@+

[ShaiLeTroll]

C'est comme, je le disais jouer avec WM_VSCROLL en accèdant au propriété des ancêtres ...

en ajoutant des Enable/DisableControl pour éviter les défilements visibles, cela me semble fonctionnel, ...