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.
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;
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
 
With TBzEditorForm.Create(Nil) do
try
   InitData; 
   ShowModal; 
finally
   Release;
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
TBindings.Notify(FBzClass,'');
Et je suis bloqué.
Si quelqu'un peut aider !!!

Andry