bonjour à tous,
je veux affecter un champ de ma table a l'évènement d'un bouton , et pour cela j'ai crée une fonction comme tel la ou les autre procédure et function sont déclarées
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 procedure  bouton_clik(codeproduit : integer);
qui est une fonction vide
et que j'appel la
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
Function TForm_Vente_Caisse.Affecte_Bouton():integer;
var Bouton : tcxbutton;
begin
  With Datamodule4.affectation_t do
    begin
      Open;
      first;
       while not EOF do
         begin
         Bouton:=Tcxbutton(Form_Vente_Caisse.FindComponent(Datamodule4.affectation_tNOM_BUTTON.Value));
         If Bouton <> Nil
         Then
           begin
            Bouton.Caption := Datamodule4.affectation_tNOM_PROd.Value;
            Bouton.Colors.Default := graphics.Stringtocolor(Datamodule4.affectation_tCOULEUR.Value);
            bouton.OnClick := bouton_clik(Datamodule4.affectation_tCODE_PROD.Value);           end;
         next;
         end;
    end;
end;
mon problème a la compilation "il me dite
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
[DCC Erreur] Vente_Caisse_U.pas(203): E2010 Types incompatibles : 'TNotifyEvent' et 'procedure, untyped pointer or untyped parameter'
':' attendu mais ';' trouvé"
je sais pas ou ça cloche, si vous avez pas une idée n'hésiter