2

Estou com um problema que não consigo resolver de jeito nenhum. Com o Delphi XE8, já fiz livebindings para ligar componentes de tela TEdit com objetos não visuais, porem não consigo ligar componentes de tela com objetos contidos em outros objetos: Exemplo:

TEstado = class
  FUF: string;
end;

TCidade = class
  FNome: string;
  FEstado: TEstado;
end;

Neste caso consigo ligar o nome da cidade com algum componente da tela, mas não consigo pegar cidade.estado.uf para mostrar na tela.

1
  • Quando eu precisar editar essa lista? No caso eu tenho um botão que atualiza essa lista com outros valores, qual função eu chamo pra atualizar o componente visual? Pois se eu só atualizar a grid dessa forma ai não vai atualizar o componente visual pra mostrar os dados.
    – Diron
    Commented 26/07/2018 às 19:55

1 Resposta 1

1

Para disponibilizar a estrutura da sua classe para a LiveBinding utilize o componente "DataGeneratorAdapter". Crie as propriedades da sua classe nele, a partir daqui vc poderá ligar seus componentes visuais a esta estrutura.

Depois disso, utilize o componente "AdapterBindSource" para vincular a sua classe a essa estrutura criada no "DataGeneratorAdapter". Programe o evento "CreateAdapter" da seguinte forma:

procedure TForm1.AdapterBindSource2CreateAdapter(Sender: TObject;
  var ABindSourceAdapter: TBindSourceAdapter);

begin

     FLista := TObjectList<TPessoa>.Create;
     FLista.Add(TPessoa.Create('Filipe', 25, '[email protected]'));
     FLista.Add(TPessoa.Create('Cíntia', 27, '[email protected]'));
     FLista.Add(TPessoa.Create('Julio', 32, '[email protected]'));
     ABindSourceAdapter := TListBindSourceAdapter<TPessoa>.Create(Self,     FLista);

end;

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .