| Class TDbTreeLookupComboBox (unit dbTreeCBox) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure CloseUp(Action: TCloseUpAction);
destructor Destroy;
procedure DropDown;
procedure KeyValueChanged;
procedure PrepareDropdown;
procedure CreateParams(var Params: TCreateParams);
procedure DataLinkRecordChanged(Field: TField);
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
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;
function GetTreeSelect: TTreeSelect;
function GetTvDataset: TDataset;
procedure ListLinkActiveChanged;
procedure ProcessSearchKey(Key: Char);
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);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMPaint(var Message: TWMPaint);| 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 ListTreeIDField : string
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
property DBTreeViewDataset : TDataset
property KeyValue :
property ListVisible : Boolean
property Text : string
property TreeSelect : TTreeSelect| 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;
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 : stringTreeView
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 : TCustomDBTreeViewThe DBTreeView of the dropdown-panel:
property DBTreeViewDataset : TDatasetThe dataset of the DBTreeView of the dropdown-panel:
property KeyValue :
property ListVisible : Boolean
property Text : string
property TreeSelect : TTreeSelectThe 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;