Bonjour tout le monde,

Je débute sous delphi et je bloque sur une chose qui paraitra anodine à beaucoup.

J'ai besoin de sauvegarder la position de la cellule active dans la DBGRID afin de pouvoir la rendre de nouveau active après un traitement de somme d'une colonne.

Voila le code qui effectue les sommes mais en même temps rend active la dernière cellue (ce qui est totalement logique) :

Code Delphi : 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 affichetotaux;
var machaine : string;
    i: longint;
    l : integer;
 
begin
sommed:=0; sommec:=0;
form1.DBGrid1.DataSource.DataSet.DisableControls;
while not form1.Table1.eof do
begin
sommed:=sommed+form1.table1.Fields[5].AsFloat;
sommec:=sommec+form1.table1.fields[6].asfloat;
form1.table1.Next;
end;
str(sommed:12:2,machaine);
form1.totaldebit.Caption:=machaine;
str(sommec:12:2,machaine);
form1.totalcredit.Caption:=machaine;
form1.DBGrid1.DataSource.DataSet.EnableControls;
end;

Merci pour votre aide,

Mutatis Mutandis.