Discussion :

[f5jcg_Lulu]

Bonjour à tous,
J'ai appliqué la solution de SergioMaster (voir posts précédents) qui fonctionne au petit poil. Mon nouveau (et petit) problème est le suivant : mon DBGrid affiche les 20 derniers enregistrements. Quand je double-clique sur la colonne me servant à marquer des enregistrements à imprimer situés au-dessus, le DBGrid revient systématiquement en bas, c-a-d au dernier enregistrement, malgré la désactivation de toute instruction ZQuery1.Last ou ZQuery1.First. Je dois à chaque fois remonter au niveau de l'enregistrement suivant à marquer et c'est assez irritant.
Y-a-t-il une instruction pour que le DBGrid reste figé au niveau de la zone de clic ? J'espère ne pas avoir été brumeux.
Merci. Cordialement

[tourlourou]

Bonjour,
N'est-ce pas le rôle des Bookmarks de mémoriser et revenir commodément à une position ?

[SergioMaster]

Bonjour

Quand je double-clique sur la colonne me servant à marquer des enregistrements à imprimer situés au-dessus, le DBGrid revient systématiquement en bas, c-a-d au dernier enregistrement ... J'espère ne pas avoir été brumeux.

Brumeux, si un peu (ou alors c'est moi) je ne comprends pas ce qui se passe, peut-être qu'en nous fournissant le code de ce double-clique ?
Si c'est la solution 1 qui avait été utilisée (ajout d'une colonne booléenne) l'évènement devrait contenir :

Code :

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

1
2
3
ZQuery1.Edit;
ZQuery1.FieldByName('EDITER').asBoolean:=True; // asBoolean hum, il existe celui là ? 
ZQuery1.Post;

Sans bien sûr aucun Refresh (ou alors un RefreshRecord p.s. je ne me souviens plus si ZEOSDBO connait)

Après révision de ZUpdateSQL (puisqu'il y a ZQuery) je m'aperçois que j'ai pris de "mauvaises" habitudes avec Firedac qui permet ce genre de Refresh, RefreshRecord

donc pour en revenir à l'évènement, si un Refresh est nécessaire, comme l'écrit tourlourou, les bookmarks sont là pour ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var aBookmark : TBookmark;
begin
 
ABookMark:=ZQuery1.GetBookMark;
ZQuery1.Edit;
ZQuery1.FieldByName('EDITER').asBoolean:=True; // asBoolean hum, il existe celui là ? 
ZQuery1.Post;
ZQuery1.DisableControls;  // pour éviter le flickering
ZQuery1.Refresh;
ZQuery1.GotoBookmark(ABookmark); 
Zquery1.EnableControls;

[f5jcg_Lulu]

Encore une fois, bravo à tous les 2, ça fonctionne. Effectivement les BookMark existent, encore fallait-il connaître et comprendre cette "chose", voilà qui est fait grâce à vous.
Merci à vous. Cordialement et si ça se trouve, A+ !!!!