Question

我正在挣扎着流淌。我试图将liveBindings与我自己的类一起使用。

所以我写道：

procedure TFormSearchOfferte.absSearchCreateAdapter(Sender: TObject;
  var ABindSourceAdapter: TBindSourceAdapter);
begin
  myOfferteList := GetListOfOffertes(cbOpenstaand.Checked);
  ABindSourceAdapter := TListBindSourceAdapter<tOfferte>.Create(self, myOfferteList);
end;

procedure TFormSearchOfferte.cbOpenstaandClick(Sender: TObject);
  var ABindSourceAdapter: TBindSourceAdapter;
begin
  ABindSourceAdapter := TListBindSourceAdapter<tOfferte>.Create(self, nil);
  absSearchCreateAdapter(self.parent, aBindSourceAdapter);
  strgrdList.Refresh;
end;

我的stringrid（strgrdList）显示了一个offertes列表。如果我取消选中我的组合框，他会重新加载我的数据。 MyOfferteList包含新数据。但我的stringgrid不是。 stringgrid与absSearch连接。

我的stringgrid仍显示旧数据。

我错过了什么？

Answer 1

重新加载数据后调用absSearch.Refresh。

Answer 2

认为这应该是absSearch.InternalAdapter.Refresh

LiveBindings，在运行时更改数据

2 个答案: