| Class TDBViewCombo (unit Viewcomb) |
TCustomComboBox
| Constructors |
constructor Create(AOwner: TComponent);---------------------------------------------------------------
| Functions |
destructor Destroy;
procedure Refresh;
procedure Change;
procedure ClearList;
procedure KeyUp(var Key: Word; Shift: TShiftState);
procedure ReadList;
procedure Scroll(Distance : Integer);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetItemIndex : integer;.
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetItemIndex(Value : integer);| Properties |
property Color :
property Ctl3D :
property DataField : string
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| Events |
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 : | Variables |
FChanging : boolean;
FDataLink : TViewComboLink;
FOldIndex : integer;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
---------------------------------------------------------------
| Functions |
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);| Properties |
property Color : Must be published before Items
property Ctl3D :
property DataField : stringPublished 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| Events |
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 : | Variables |
FChanging : boolean;
FDataLink : TViewComboLink;Private declarations
FOldIndex : integer;