--- ibx/trunk/ibcontrols/IBLookupComboEditBox.pas 2018/02/23 12:11:21 143 +++ ibx/trunk/ibcontrols/IBLookupComboEditBox.pas 2018/03/14 12:48:51 209 @@ -54,6 +54,7 @@ type FOwner: TIBLookupComboEditBox; protected procedure ActiveChanged; override; + procedure DataEvent(Event: TDataEvent; Info: Ptrint); override; procedure RecordChanged(Field: TField); override; procedure UpdateData; override; public @@ -169,6 +170,13 @@ begin FOwner.ActiveChanged(self) end; +procedure TIBLookupComboDataLink.DataEvent(Event: TDataEvent; Info: Ptrint); +begin + inherited DataEvent(Event, Info); + if Event = deLayoutChange then + FOwner.LookupCache := FOwner.LookupCache; {sneaky way of calling UpdateLookup} +end; + procedure TIBLookupComboDataLink.RecordChanged(Field: TField); begin FOwner.RecordChanged(self,Field);