Implémentation de procedure sur evenement pour composant dynamique

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:

---

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

Enlève le Self

Code:

---

1 2	OnChange := Calcul;

---

Merci pour ta réponse.

Je viens de faire la correction mais ça me provoque une erreur
car je ne sais pas où déclarer cette procédure, qui est une
méthode de la Form que j'ai créée dynamiquement.

Code:

---

1 2 3 4 5 6 7 8 9 10

//Fenetre créée automatiquement TConteneur := TForm.Create(self); With TConteneur Do Begin top := 100; left := 100; Caption := "Fenetre de mise à jour"; Width := 400; End;

---

Je sais qu'une méthode d'une form se déclare à l'initialisation
mais ma form est créée en plein milieu de l'application sous
certaines conditions. Donc je ne peux pas déclarer cette méthode
à l'initialisation de la form principale. En effet, la form dynamique
n'existant pas, elle n'est pas reconnue.

J'ai essayé d'insérer procedure Calcul(Sender: TObject) dans le corps
de With TConteneur Do mais cela ne fonctionne pas.

Merci.

Les Anonymes ne sont pas applicables au Gestionnaire d’Événements

Méthodes anonymes dans Delphi - Méthodes anonymes en tant qu'événements

Citation:

---

Toutefois, la réciproque n'est pas vraie : vous ne pouvez pas affecter une méthode anonyme à un pointeur de méthode normal. Les références de méthode sont des types managés, mais les pointeurs de méthode sont des types non managés. Ainsi, pour des raisons de fiabilité des types, l'affectation de références de méthode à des pointeurs de méthode n'est pas supportée. Par exemple, les événements sont des propriétés de méthode évaluées en pointeur , vous ne pouvez donc pas utiliser une méthode anonyme pour un événement. Pour de plus amples informations sur cette restriction, voir la section relative à la liaison des variables.

---

Je pense que "reference to" (syntaxe pour indiquer le support d'une méthode autorisant les anonymes" et "of object" (syntaxe pour déclarer une méthode objet pour les Events) ne sont pas directement compatible !



Et cela n'est que depuis Delphi 2009

Tu as deux solutions :
- soit Calcul est une fonction de self
- soit Calcul est une méthode de classe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

FormContainer := TForm.Create(self); With FormContainer Do Begin top := 100; left := 100; Caption := "Fenetre de mise à jour"; Width := 400;   ComboArray[Cpt1] := TComboBox.Create(FormContainer); With ComboArray[Cpt1] Do Begin Items.Add('Salut'); OnClick := TBidule.ClickEventHandler; end; End;

---

Evite T dans les noms des variables, T indique que c'est une définition de Type
Si tableau, déclare plûtôt un TabCombo ou ComboArray,
Idem tout simple FormContainer

Code:

---

1 2 3 4 5

type TBidule = class(TObject) public class procedure ClickEventHandler(Sender: TObject); end;

---

Code:

---

1 2 3 4 5 6 7 8 9

class procedure TBidule.ClickEventHandler(Sender: TObject); begin if Sender is TButton then ShowMessage('Un Bouton a été cliqué'); else if Sender is TComboBox then with Sender as TComboBox do ShowMessage(Format('La Combo %s a été cliqué sur l''élement %d = %s', [Name, ItemIndex, Items[ItemIndex]]));

---

La question est : pourquoi veux-tu instancier un TForm ?

Tu peux tout à fait créer ta fiche dans l'EDI avec des composants et méthodes de base, l'instancier par code et ajouter d'autres contrôles à la volée.

Je pense qu'il y a une incompréhension au niveau des fiches auto-créées ;)

Il est aussi possible de créer un objet hérite de TForm SANS passer par l'IDE, de lui mettre des méthodes et propriétés, il faut juste utiliser CreateNew au lieu de Create pour indiquer une création de fenêtre SANS DFM

Bonjour,

Tout d'abord merci pour vos réponses.

Pour répondre à vos questions posées :

- Je veux créer une TForm de toutes pièces pcq c'est une des
consignes que j'ai eues de mon responsable (ne me demandez
pas pourquoi je ne sais pas ;))

Je teste les solutions et je vous fais un retour

Merci :)

Bonjour,

J'ai fini par créer une form simple avec des boutons. J'ai préféré ne pas
me torturer les méninges en manipulant les classes car ça me parait compliqué
pour ce que je voulais faire au départ.

La form simple que j'ai créée avec l'EDI a été finalement très utile pour
y inclure les procédures que je voulais intégrer.

Merci pour vos réponses, je prendrai de la graine quand j'en aurai besoin.

:ccool: