Bonjour,

Je suis devant un petit souci.

Je crée des composants dynamiques dans une form
créée elle aussi dynamiquement.

Je voudrais appeler une fonction au changement du contenu
d'une combobox, je ne sais pas comment définir cette fonction
et où la déclarer.

Voici la portion de code pour créer la combobox :

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
 
       //Créer des combobox dynamiques
        TCombo[Cpt1] := TComboBox.Create(TContainer);
        With TCombo[Cpt1] Do
        Begin
          left:=150;
          top:=posVertic+30;
          width:=120;
          parent:=TContainer;
          Caption:=DefText;
          Text:=valint+':'+SsText;
          name:='ComboBox_'+IntToStr(Cpt1);
          enabled:=true;
          visible:=true;
          posCbb := posVertic+30;
          OnChange := Calcul(self);
        End;
J'ai défini une procédure appelée "procedure Calcul(sender: TObject)"

Le compilateur m'indique : Types incompatibles:'TNotifyEvent' et 'procedure, untyped pointer or untyped parameter'

Je n'y comprends rien

Merci pour vos tuyaux