TDBLookup

type TDBLookup = class(TComponent)

protected

  procedure Notification(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Initialize();

  function KeyFieldValue;

  procedure UpdateData();

  function GetKeyValue();

  function GetKeyIndex();

  property ControlItems: TStrings; [rw]

  property LookupCache: Boolean; [rw]

  property KeyField: string; [rw]

  property ListField: string; [rw]

  property ListFieldIndex: Integer; [rw]

  property ListSource: TDataSource; [rw]

  property NullValueKey: TShortcut; [rw]

  property ScrollListDataset: Boolean; [rw]

  property EmptyValue: string; [rw]

  property DisplayEmpty: string; [rw]

end;

TDBLookup

TObject