Class TCustomDBLookupControl (unit dbTreeCBox)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


function CanModify: Boolean;

* Moved (virtual) procedures from private to protected:

procedure DataLinkRecordChanged(Field: TField);

* Moved from private to protected and made virtual:

function GetBorderSize: Integer;


function GetTextHeight: Integer;


procedure KeyValueChanged;


procedure ListLinkActiveChanged;


procedure ListLinkDataChanged;


function LocateKey: Boolean;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure SelectKeyValue(const Value: Variant);


procedure CheckNotCircular;


procedure CheckNotLookup;

Delphi >= 3.

procedure DataLinkActiveChanged;

Delphi >= 3.

function GetDataSource: TDataSource;


function GetKeyFieldName: string;


function GetListSource: TDataSource;


function GetReadOnly: Boolean;


procedure SetDataFieldName(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetKeyFieldName(const Value: string);


procedure SetKeyValue(const Value: Variant);


procedure SetListFieldName(const Value: string);


procedure SetListSource(Value: TDataSource);


procedure SetLookupMode(Value: Boolean);


procedure SetReadOnly(Value: Boolean);


procedure WMGetDlgCode(var Message: TMessage);


procedure WMKillFocus(var Message: TMessage);


procedure WMSetFocus(var Message: TMessage);


Properties

property DataField : string


property DataSource : TDataSource


property FFDataField : TField


property FFDataFieldName : string


property FFDataLink : TDataSourceLink


property FFFocused : Boolean


property FFKeyField : TField


property FFListActive : Boolean


property FFListField : TField


property FFListLink : TListSourceLink


property FFLookupMode : Boolean

* Read private "Fxxx" with protected "FFxxx":

property FFSearchText : string

* Read and write private "Fxxx" with protected "FFxxx":

property KeyField : string


property KeyValue : Variant


property ListField : string


property ListFieldIndex : Integer


property ListSource : TDataSource


property ParentColor :


property ReadOnly : Boolean


property TabStop :


Events

Variables

FDataField : TField;


FDataFieldName : string;


FDataLink : TDataSourceLink;


FFocused : Boolean;


FKeyField : TField;


FKeyFieldName : string;


FKeyValue : Variant;


FListActive : Boolean;


FListField : TField;


FListFieldIndex : Integer;


FListFieldName : string;


FListFields : TList;


FListLink : TListSourceLink;


FLookupMode : Boolean;


FLookupSource : TDataSource;


FMasterField : TField;


FSearchText : string;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


function CanModify: Boolean;

* Moved (virtual) procedures from private to protected:


procedure DataLinkRecordChanged(Field: TField);

* Moved from private to protected and made virtual:


function GetBorderSize: Integer;


function GetTextHeight: Integer;


procedure KeyValueChanged;


procedure ListLinkActiveChanged;


procedure ListLinkDataChanged;


function LocateKey: Boolean;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure SelectKeyValue(const Value: Variant);


procedure CheckNotCircular;


procedure CheckNotLookup;

Delphi >= 3.0:


procedure DataLinkActiveChanged;

Delphi >= 3.0:


function GetDataSource: TDataSource;


function GetKeyFieldName: string;


function GetListSource: TDataSource;


function GetReadOnly: Boolean;


procedure SetDataFieldName(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetKeyFieldName(const Value: string);


procedure SetKeyValue(const Value: Variant);


procedure SetListFieldName(const Value: string);


procedure SetListSource(Value: TDataSource);


procedure SetLookupMode(Value: Boolean);


procedure SetReadOnly(Value: Boolean);


procedure WMGetDlgCode(var Message: TMessage);


procedure WMKillFocus(var Message: TMessage);


procedure WMSetFocus(var Message: TMessage);


Properties


property DataField : string


property DataSource : TDataSource


property FFDataField : TField


property FFDataFieldName : string


property FFDataLink : TDataSourceLink


property FFFocused : Boolean


property FFKeyField : TField


property FFListActive : Boolean


property FFListField : TField


property FFListLink : TListSourceLink


property FFLookupMode : Boolean

* Read private "Fxxx" with protected "FFxxx":


property FFSearchText : string

* Read and write private "Fxxx" with protected "FFxxx":


property KeyField : string


property KeyValue : Variant


property ListField : string


property ListFieldIndex : Integer


property ListSource : TDataSource


property ParentColor :


property ReadOnly : Boolean


property TabStop :


Events


Variables


FDataField : TField;


FDataFieldName : string;


FDataLink : TDataSourceLink;


FFocused : Boolean;


FKeyField : TField;


FKeyFieldName : string;


FKeyValue : Variant;


FListActive : Boolean;


FListField : TField;


FListFieldIndex : Integer;


FListFieldName : string;


FListFields : TList;


FListLink : TListSourceLink;


FLookupMode : Boolean;


FLookupSource : TDataSource;


FMasterField : TField;


FSearchText : string;