Comment extraire l'objet d'une source Bind dans Delphis LiveBindings?

Question

Dans Delphi 10.1 j'ai une ObjectList nommée DogCollection et chaque entrée est du type TDog, une classe personnalisée.

grâce à des tutoriels de malcolm bosquets, j'ai pu remplir un Stringgrid avec mon DogCollection.

http://www.malcolmgroves.com/blog/?p=1084

Maintenant, je voudrais être en mesure de faire défiler les stringgrid et chaque fois que je défiler Je veux mettre à jour la variable « CurrentDog » du TDog type, avec tout objet est mis en évidence dans le stringgrid.

J'ai donc un aperçu de mes DogObjects et aussi un seul objet de mon chien que je peux indépendamment voir/manipuler.

Je n'ai plus d'idées pour le moment. Si cela vous aide, je ne peux pas non plus déclencher les événements AfterScroll de l'adaptateur, même si j'ajoute un navigateur avec RightClick-> Ajouter un navigateur.

Je vous remercie de votre aide et de votre temps.

Answer 1

Je ne suis pas sûr de comprendre la question mais je pense que vous n'avez pas besoin d'avoir une variable "CurrentDog" pour travailler sur l'objet sélectionné de votre liste.

Vous pouvez créer tous les composants (TEdit) dont vous avez besoin pour votre chien (Nom, Âge ...) et lier ces composants aux mêmes champs (Nom, Âge ...) dans votre TDataGeneratorAdapter (qui est lié à la propriété "Adapter" de votre TAdapterBindSource). Puis, lorsque vous sélectionnez une ligne dans votre grille, l'objet correspondant apparaît dans vos composants d'édition. Lorsque vous modifiez les propriétés "Texte", la grille est mise à jour.

EDIT: InternalAdapter

Après quelques recherches, vous pouvez obtenir votre objet avec le InternalAdapter de votre TAdapterBindSource

Sur l'événement OnClick:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Adapter: TBindSourceAdapter; 
begin 
    Adapter:= AdapterBindSource1.InternalAdapter; 

    CurrentDog:= TDog(Adapter.Current); 
end;