Discussion :

[Lung]

Dans une DBGrid en multi-sélection, l'utilisateur peut sélectionner plusieurs lignes.
Il suffit après de balayer DBGrid.SelectedRows avec Query.GotoBookmark.

Pour poser un bookmark, il y a la fonction GetBookmark.
Mais, ces bookmark ne sont pas visibles par l'utilisateur. Il n'y a pas les points noirs à gauche des enregistrements dans la DBGrid.

Comment créer des bookmark visibles dans DBGrid.SelectedRows ?

[ShaiLeTroll]

Initialisez CurrentRowSelected pour indiquer si la chaîne Bookmark de l'ensemble de données du DBGrid associé est incluse dans la liste des signets. L'affectation de la valeur true à CurrentRowSelected ajoute la propriété Bookmark de l'ensemble de données au tableau Items si elle ne s'y trouve pas déjà. L'affectation de la valeur false à CurrentRowSelected retire la propriété Bookmark de l'ensemble de données du tableau Items si elle s'y trouve. Si la propriété Bookmark de l'ensemble de données est une chaîne vide (pas de signet), l'affectation d'une valeur à CurrentRowSelected n'a aucun effet.

Modifie DBGrid.SelectedRows.CurrentRowSelected, cela devrait ajouter la ligne courante à la BookmarkList interne du DBGrid

[Lung]

Modifie DBGrid.SelectedRows.CurrentRowSelected, cela devrait ajouter la ligne courante à la BookmarkList interne du DBGrid

CA MARCHE !!!
Je ne connaissais pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
      if QueryAffCommande.Active then
      begin
         DBGridCommande.SelectedRows.Clear;
         QueryAffCommande.DisableControls;
         QueryAffCommande.First;
         while not QueryAffCommande.Eof do
         begin
            QueryAffCommande.GetBookmark;
            DBGridCommande.SelectedRows.CurrentRowSelected := True;
            QueryAffCommande.Next;
         end;
         QueryAffCommande.EnableControls;
      end;