Class TDbTreeLookupComboBox (unit dbTreeCBox)

Inherits from

TCustomDBLookupControl

Constructors


constructor Create(AOwner: TComponent);

TDbTreeLookupComboBox -----------------------------------------------------


Functions

procedure CloseUp(Action: TCloseUpAction);


destructor Destroy;


procedure DropDown;

Taskbar on left

procedure KeyValueChanged;


procedure PrepareDropdown;

TreeView } { You can use PrepareDropdown to build the tree of the dropdown-panel before first dropdown happens (datasets have to be open already) - the first dropdown will get faster then:

procedure CreateParams(var Params: TCreateParams);

CanModify cannot get true if FListVisible = False

procedure DataLinkRecordChanged(Field: TField);


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);

There is no entry in KeyValue.

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure AcceptNode(Node: TTreeNode; var Accept: Boolean);


procedure CMCancelMode(var Message: TCMCancelMode);


procedure CMCtl3DChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure CMGetDataLink(var Message: TMessage);


function GetDBTreeView: TCustomDBTreeView;

Result := nil;

function GetTreeSelect: TTreeSelect;


function GetTvDataset: TDataset;


procedure ListLinkActiveChanged;


procedure ProcessSearchKey(Key: Char);

Show window:

procedure SetListTreeIDField(const Value: String);


procedure SetListTreeParentField(const Value: String);


procedure SetTreeSelect(Value: TTreeSelect);


procedure StopTracking;


procedure TrackButton(X, Y: Integer);


procedure TreeSelectFormDestroy(Sender: TObject);


procedure WMCancelMode(var Message: TMessage);

Integer(FDataLink);

procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMPaint(var Message: TWMPaint);

The User can not select the root-node

Properties

property Color :


property Ctl3D :


property DataField :


property DataSource :


property DragCursor :


property DragMode :


property DropDownAlign : TDropDownAlign


property DropDownHeight : Integer


property DropDownWidth : Integer


property Enabled :


property Font :


property KeyField :


property ListField :


property ListSource :

property ListFieldIndex;

property ListTreeIDField : string

TreeView

property ListTreeParentField : string


property ListTreeRootID : string


property Options : TDBTreeLCBOptions


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property DBTreeView : TCustomDBTreeView

The DBTreeView of the dropdown-panel:

property DBTreeViewDataset : TDataset

The dataset of the DBTreeView of the dropdown-panel:

property KeyValue :


property ListVisible : Boolean


property Text : string


property TreeSelect : TTreeSelect

The dropdown-panel itself:

Events

event OnAcceptNode : TAcceptNodeEvent


event OnClick :


event OnCloseUp : TCloseUpEvent


event OnCreateTreeSelect : TCreateTreeSelectEvent


event OnDragDrop :


event OnDragOver :


event OnDropDown : TNotifyEvent


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FAlignment : TAlignment;


FButtonWidth : Integer;


FDropDownAlign : TDropDownAlign;


FDropDownHeight : Integer;


FDropDownWidth : Integer;


FListTreeIDField : string;


FListTreeParentField : string;


FListTreeRootID : string;


FListVisible : Boolean;


FNoMouseDropDown : Boolean;


FOnAcceptNode : TAcceptNodeEvent;


FOnCloseUp : TCloseUpEvent;


FOnCreateTreeSelect : TCreateTreeSelectEvent;


FOnDropDown : TNotifyEvent;


FOptions : TDBTreeLCBOptions;


FPressed : Boolean;


FText : string;


FTracking : Boolean;


FTreeSelect : TTreeSelect;

TreeView

FTreeSelectOnDestroy : TNotifyEvent;


FTreeSelectSelfCreated : Boolean;



Constructors


constructor Create(AOwner: TComponent);

TDbTreeLookupComboBox -----------------------------------------------------


Functions


procedure CloseUp(Action: TCloseUpAction);


destructor Destroy;


procedure DropDown;

Taskbar on left


procedure KeyValueChanged;


procedure PrepareDropdown;

TreeView } { You can use PrepareDropdown to build the tree of the dropdown-panel before first dropdown happens (datasets have to be open already) - the first dropdown will get faster then:


procedure CreateParams(var Params: TCreateParams);

CanModify cannot get true if FListVisible = False


procedure DataLinkRecordChanged(Field: TField);


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);

There is no entry in KeyValue. Search first item that we can accept:


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure AcceptNode(Node: TTreeNode; var Accept: Boolean);


procedure CMCancelMode(var Message: TCMCancelMode);


procedure CMCtl3DChanged(var Message: TMessage);


procedure CMFontChanged(var Message: TMessage);


procedure CMGetDataLink(var Message: TMessage);


function GetDBTreeView: TCustomDBTreeView;

Result := nil;


function GetTreeSelect: TTreeSelect;


function GetTvDataset: TDataset;


procedure ListLinkActiveChanged;


procedure ProcessSearchKey(Key: Char);

Show window:


procedure SetListTreeIDField(const Value: String);


procedure SetListTreeParentField(const Value: String);


procedure SetTreeSelect(Value: TTreeSelect);


procedure StopTracking;


procedure TrackButton(X, Y: Integer);


procedure TreeSelectFormDestroy(Sender: TObject);


procedure WMCancelMode(var Message: TMessage);

Integer(FDataLink);


procedure WMKillFocus(var Message: TWMKillFocus);


procedure WMPaint(var Message: TWMPaint);

The User can not select the root-node


Properties


property Color :


property Ctl3D :


property DataField :


property DataSource :


property DragCursor :


property DragMode :


property DropDownAlign : TDropDownAlign


property DropDownHeight : Integer


property DropDownWidth : Integer


property Enabled :


property Font :


property KeyField :


property ListField :


property ListSource :

property ListFieldIndex;


property ListTreeIDField : string

TreeView


property ListTreeParentField : string


property ListTreeRootID : string


property Options : TDBTreeLCBOptions


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property DBTreeView : TCustomDBTreeView

The DBTreeView of the dropdown-panel:


property DBTreeViewDataset : TDataset

The dataset of the DBTreeView of the dropdown-panel:


property KeyValue :


property ListVisible : Boolean


property Text : string


property TreeSelect : TTreeSelect

The dropdown-panel itself:


Events


event OnAcceptNode : TAcceptNodeEvent


event OnClick :


event OnCloseUp : TCloseUpEvent


event OnCreateTreeSelect : TCreateTreeSelectEvent


event OnDragDrop :


event OnDragOver :


event OnDropDown : TNotifyEvent


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FAlignment : TAlignment;


FButtonWidth : Integer;


FDropDownAlign : TDropDownAlign;


FDropDownHeight : Integer;


FDropDownWidth : Integer;


FListTreeIDField : string;


FListTreeParentField : string;


FListTreeRootID : string;


FListVisible : Boolean;


FNoMouseDropDown : Boolean;


FOnAcceptNode : TAcceptNodeEvent;


FOnCloseUp : TCloseUpEvent;


FOnCreateTreeSelect : TCreateTreeSelectEvent;


FOnDropDown : TNotifyEvent;


FOptions : TDBTreeLCBOptions;


FPressed : Boolean;


FText : string;


FTracking : Boolean;


FTreeSelect : TTreeSelect;

TreeView


FTreeSelectOnDestroy : TNotifyEvent;


FTreeSelectSelfCreated : Boolean;