Class TDBViewCombo (unit Viewcomb) |
Inherits from
TCustomComboBox
constructor Create(AOwner: TComponent);
- Public declarations
---------------------------------------------------------------
destructor Destroy;
construct the data-link object
procedure Refresh;
procedure Change;
clear list
procedure ClearList;
read and fill the list of items (when dataset activeting
procedure KeyUp(var Key: Word; Shift: TShiftState);
procedure ReadList;
procedure Scroll(Distance : Integer);
Protected declarations
function GetDataField: string;
function GetDataSource: TDataSource;
returns the name of the data field
function GetItemIndex : integer;
assigns new data source .
procedure SetDataField(const Value: string);
returns reference to the data source
procedure SetDataSource(Value: TDataSource);
assigns name of data field
procedure SetItemIndex(Value : integer);
property Color :
Must be published before Items
property Ctl3D :
property DataField : string
Published declarations
property DataSource : TDataSource
property DragCursor :
property DragMode :
property DropDownCount :
property Enabled :
property Font :
property ItemHeight :
property Items :
property MaxLength :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Sorted :
property Style :
property TabOrder :
property TabStop :
property Text :
property Visible :
property ItemIndex : integer
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDrawItem :
event OnDropDown :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMeasureItem :
FChanging : boolean;
FDataLink : TViewComboLink;
Private declarations
FOldIndex : integer;
constructor Create(AOwner: TComponent);
Public declarations
---------------------------------------------------------------
destructor Destroy;
construct the data-link object
procedure Refresh;
procedure Change;
clear list
procedure ClearList;
read and fill the list of items (when dataset activeting
procedure KeyUp(var Key: Word; Shift: TShiftState);
procedure ReadList;
procedure Scroll(Distance : Integer);
Protected declarations
function GetDataField: string;
function GetDataSource: TDataSource;
returns the name of the data field
function GetItemIndex : integer;
assigns new data source
...then call inherited destructor
procedure SetDataField(const Value: string);
returns reference to the data source
procedure SetDataSource(Value: TDataSource);
assigns name of data field
procedure SetItemIndex(Value : integer);
property Color :
Must be published before Items
property Ctl3D :
property DataField : string
Published declarations
property DataSource : TDataSource
property DragCursor :
property DragMode :
property DropDownCount :
property Enabled :
property Font :
property ItemHeight :
property Items :
property MaxLength :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Sorted :
property Style :
property TabOrder :
property TabStop :
property Text :
property Visible :
property ItemIndex : integer
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDrawItem :
event OnDropDown :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMeasureItem :
FChanging : boolean;
FDataLink : TViewComboLink;
Private declarations
FOldIndex : integer;