Discussion :

[Goundy]

Bonjour,

Alors voilà j'ai un petit soucis :/

J'ai, dans mon fichier Class1.pas, une class qui comporte un composant TDataSource.
TDataSource a un évenement: OnDataChange et en fait j'arrive pas à déclarer correctement la procedure liée à cet évenement.
Comment faire ?

voici le code

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
 
  TDataBase = Class(TObject)
    private
          Query : TQuery;
          DBGrid :^TDBGrid;
          TableName: String;
    public
          Opened: boolean;
          DataSource: TDataSource;
 
          Constructor Init (TableName: String);
          Procedure AssignGrid (var DBGrid:TDBGrid);
          Procedure AddToQuery (sQuery:String);
          Procedure ClearQuery;
          Function RunQuery:Integer;
          Destructor Clear;
  end;

Donc quand la notification datachange arrive je veux exécuter certaines actions, alors wala comment faire l'évenement

Merci

Edit:
J'ai trouvé ça : http://delphi.developpez.com/faq/?pa...ajoutevenement
Mais ca va pas vue que OnChangeDate est de type TDataChangeEvent...

[Goundy]

Problème résolu.
Je m'étais gourré dans le prototype de ma procedure
Merci