Bonjour à tous.
Je suis en train de tester ce fonctionnement surtout le binding avec des objets.
Le principe
Un objet avec des propriétés bindé en bidi sur des contrôles (TEdit, CheckBox, etc)
La fiche d’édition exécuté la première fois marche impeccable.
Mais une deuxième fois, erreur.
Le code qui bind est exécuté après la création et load de l'objet.
La fiche est créer en mode modale comme suit.
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 procedure TBzEditorForm.InitData; begin FBzClass := TBzClass.Create(.....); TBindings.CreateManagedBinding( [TBindings.CreateAssociationScope([Associate(FBzClass,'aProfile')])],'aProfile.Login', [TBindings.CreateAssociationScope([Associate(edLogin,'edLogin')])], 'edLogin.Text',Nil); TBindings.CreateManagedBinding( [TBindings.CreateAssociationScope([Associate(edLogin,'edLogin')])],'edLogin.Text', [TBindings.CreateAssociationScope([Associate(FBzClass,'aProfile')])], 'aProfile.Login',Nil); TBindings.Notify(FBzClass,''); FBzClass.Load; end;
L'erreur lors de l'ouverture de la fiche se trouve lors de l'appel à
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 With TBzEditorForm.Create(Nil) do try InitData; ShowModal; finally Release; end;
Et je suis bloqué.
Code : Sélectionner tout - Visualiser dans une fenêtre à part TBindings.Notify(FBzClass,'');
Si quelqu'un peut aider !!!
Andry
Partager