Discussion :

[kase74]

Bonjour, j'aimerais faire en sorte de pouvoir selectionner plusieur ligne d'un TDBGrid en utilisant le clavier : L'utilisateur doit pouvoir se deplacer avec fleche-haut et bas, et si il veut selectionner un enregistrement, il tape la touche espace.

J'ai implemente OnKeyDown pour qu'il selectionne la ligne avec espace, mais des que je change d'enregistrement, je perds la selection !
Ce que je pensais faire, c'est surcharger la methode scroll de cette maniere :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
...
SelectionInitiale:=TBookmarkList.create(MonDBGrid);
// Je recupere la selection encours poue la mettre dans une variable :
MonDBGrid.DataSource.DataSet.first;
while not MonDBGrid.DataSource.DataSet.eof() then
   SelectionInitiale.CurrentRowSelected:=MonDBGrid.SelectedRow.CurrentRoxSelected;
 
Inherited scroll(...);
 
Je refais la selection pour me retrouver dans la position de depart;
...

Et manifestement, c'est pas ca ! J'ai droit au message d'erreur Operation impossible sur un ensemble de donnee ferme !

Je ne comprends pas comment fonctionne TBookmarkList ! : : :

Je ne trouve pas de methode pour AJOUTER un element dans la liste ! (A moins que ce soit CurrentRoxSelected !)

Merci de m'avoir lu, et merci pour votre aide.

N.B. : Je travaille avec Delphi 6 Entreprise en CLX (multi-plateforme) sous WinXP.

[Tardiff Jean-François]

Bonjour,

Je pense que vous ne devez pas avoir l'aide en français car l'exemple est parlant.
Voiçi un exemple envore plus simple

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
 
procedure TMyform.MyProcedure;
var
  ABookMark: TBookmark;
  function MyDataSet: TDataSet;
  begin
    Result := MonDBGrid.DataSource.DataSet;
  end;
begin
  AbookMark := MyDataSet.GetBookmark; // Pose du bookmark
  try
    // -----------
    // traitement 
   // -----------
  MydataSet.GotoBookmark(ABookMark); // Retour a la position du bookmark
  finally
    MyDataSet.FreeBookMark(ABookMark);
  end;
end;

[kase74]

Merci pour votre reponse. J'avais resolu le probleme en utilisant une TStringList et la methode Add(ClientDataSet.Bookmark) pour faire la meme chose.
Cela dis, je suis quand meme coince : Je pensais recuperer la selection dans TClientDataSet.BeforeScroll et remettre la selection dans [bTClientDataSet.AfterScroll[/b], mais j'ai un problemes : quand je rentre dans BeforeScroll, j'ai deja perdu les selections !

Donc, je ne vois pas d'autre solution que de definir une nouvelle classe TDBGridPerso qui se chargera de surcharger la methode KeyDown pour faire :
Recup de la selection;
inherited;
Remise de la selection;

En ce moment, je suis en train de me battre pour y arriver, mais j'ai un peu de mal. Donc je vais, de ce pas, rechercher sur le forum un tuto ou des infos a ce sujet.

[kase74]

Bonjour,

A TOTRE D'INFOS :

J'ai bien reussi a faire ce que je voulais en creant une classe derivee de TDBGrid. Non pas sans mal, car le fait que je sois en CLX m'a considerablement deroute !

Donc, dans cette classe, j'y ai mis une nouvelle propriete FListeSelection de type TStringsList. Et j'ai surcharger la methode KeyDown, pour sauver la selection dans FListeSelection avant le scroll et pour la resttituer apres le scroll. De plus, j'ai cree un evenement OnListeSelection pour permettre d'implementer quelque chose suite a une modif de selection.

Seul petit hic, j'ai un scintillement desagreable a l'affichage, du au fait que pour restituer la selection apres le scroll, je parcours le ClientDataSet. Pour l'instant, je n'ai pas trouve la solution, mais je vous tiens au courant !
Sinon, je me demandais si il n'etait pas plus simple de surcharger la propriete SelectedRows, parceque si je ne me trompes, il me semble que c'est elle la base de KeyDown et de Click. Je vais essayer ca !

A+