Creation dynamique TADODataSet et association d'évènements

**yamino** · 02/10/2007, 16h01

Bonjour à tous

J'ai créé dynamiquement une connexion TADODataSet. Je voudrais lier une action (affichage du nombre de Record dans un label) lors de l'évènement AfterInsert.
Comment puis-faire ?

J'ai créé la procédure suivante :

Code :

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

1
2
3
4
procedure TfrmMain.RefreshNbTask(Sendre: TObject);
begin
  lblNbTask.Caption := IntToStr(dtsTimer.RecordCount);
end;

que je voudrais lier à AfterInsert mais celà ne fonctionne pas

Code :

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

AfterInsert := RefreshNbTask;

**Clorish** · 02/10/2007, 16h14

Sisi c'est comme ca

Code :

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

ADODataSet1.AfterInsert := RefreshNbTask

Par contre il faut que la signature de la methode lié soit la meme que celle de la variable evenement soit :

Code :

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

procedure TForm1.ADODataSet1AfterInsert(DataSet: TDataSet);

Mais sinon tu etais pas loin

**yamino** · 02/10/2007, 16h24

Ah oui ! C'est idiot en fait...
Merci de ta réponse.

Quel évènement me permet de mettre à jour mon label sur n'importe quelle "action" dans mon TADODataSet
C'est pour éviter de lier ma procédure à BeforeInsert, BeforeDelete
Je ne vois pas de procédure du style : BeforeUpdate...

**Clorish** · 02/10/2007, 16h30

ca, je n'en sais trop rien ... mais connaissant les composants Borland c'est assez rare qu'il existe des evenements generiques. Il faut affecter a chaques evenements un gestionnaire.

Par contre il est possible d'affecter le meme gestionnaire a plusieurs evenements, pour centraliser les traitements. A condition bien sur que les signatures soient les memes pour tous les evenements.

Par contre je ne vois pas de Sender dans la signature de ces evenements ... c'est etonnant car c'est justement ce qui permet de distinguer l'objet appelant ? (les gestionnaires peuvent etre aprtagé par plusieurs evenements .... mais aussi par plusieurs objets !!)