Discussion :

[Papino]

L'utilisation d'évémenents comme TDatasetAfterScroll est très pratique en particulier pour assurer la mise à jour de données visibles à l'écran, mais extremement pénalisante lorsque des opérations balaient une table sans que ces données soient visibles.
Est il possible "d'activer" ou de "désactiver" ces événements à la demande ?

[Rayek]

Il te suffit de faire

Code :

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

1
2
3
4
5
6
7
8
 
// Désactivation de l'événement
MaTable.onAfterScroll := nil;
 
// le traitement
 
// Activation de l'événement
MaTable.OnAfterScroll := MatableAfterScroll; //<-- Le nom de ton evènement

[Papino]

Je suis bluffé : 1'47" pour la réponse !
... avec un bémol, la syntaxe exacte serait :

Code :

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

1
2
3
4
 
MaTable.AfterScroll := nil;
.......
MaTable.AfterScroll := MaTable.AfterScroll;

Je n'ai pas trouvé d'événement 'OnAfterScroll'

Merci 1000 fois

[Rayek]

Je suis bluffé : 1'47" pour la réponse !
... avec un bémol, la syntaxe exacte serait :

Code :

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

1
2
3
4
 
MaTable.AfterScroll := nil;
.......
MaTable.AfterScroll := MaTable.AfterScroll;

Je n'ai pas trouvé d'événement 'OnAfterScroll'

Merci 1000 fois

Si tu assignes MAtable.AfterScroll à lui même et que juste avant tu l'ai mis a nil, ca ne risquera jamais marcher.

si tu as

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
22
23
24
25
26
27
28
29
30
31
32
 
type
  TDataModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    AdoQuery: TADOQuery;
    procedure AdoQueryAfterScroll(DataSet: TDataSet);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  DataModule1: TDataModule1;
 
implementation
 
procedure TDataModule1.AdoQueryAfterScroll(DataSet: TDataSet);
begin
// ton code du onAfterscoll
end;
 
procedure TDataModule1.Traitement1;
begin
  AdoQuery.OnAfterScroll := nil;
 
  // le traitement
 
  AdoQuery.OnAfterSCroll := AdoQueryAfterScroll;
end;
 
end.

La ca fonctionnera

[Papino]

Pan sur le bec !
J'ai écris trop vite !!!

Merci encore