Discussion :

[kracter56]

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

[Rayek]

Enlève le Self

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
OnChange := Calcul;

[kracter56]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ShaiLeTroll]

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

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
type
  TBidule = class(TObject)
  public
    class procedure ClickEventHandler(Sender: TObject);
  end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]]));

[Andnotor]

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

[ShaiLeTroll]

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