Delphi XE2 : Problème Livebinding par code
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:
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:
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:
TBindings.Notify(FBzClass,'');
Et je suis bloqué.
Si quelqu'un peut aider !!!
Andry
