Class TDbTreeLookupComboBox (unit dbTreeCBox) |
Inherits from
TCustomDBLookupControl
constructor Create(AOwner: TComponent);
- TDbTreeLookupComboBox -----------------------------------------------------
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
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:
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 :
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;
constructor Create(AOwner: TComponent);
TDbTreeLookupComboBox -----------------------------------------------------
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
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:
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 :
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;