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 :
J'ai défini une procédure appelée "procedure Calcul(sender: TObject)"
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;
Le compilateur m'indique : Types incompatibles:'TNotifyEvent' et 'procedure, untyped pointer or untyped parameter'
Je n'y comprends rien
Merci pour vos tuyaux
Partager