Class TNBSDBListBox (unit NBSDBLst)

Inherits from

TCustomListBox

Constructors


Constructor Create(AOwner : TComponent);



Functions

Destructor Destroy;


Procedure ActiveChange(Sender : TObject);

If execution gets here, ExtraField is not acceptable

Procedure CheckExtraField;


Procedure DataChange(Sender : TObject);


Procedure FillItems;


Function GetCurrItem : String;

If DataSet is open, Check if the entered fieldtype is OK

Function GetcurrValue : LongInt;


Function GetdataField : String;


Function GetDataSource : TDatasource;


procedure SetDataField(Value : String);


Procedure SetDataSource(Value : TDatasource);


Procedure SetExtraField(Value : String);


Properties

property Align :


property BorderStyle :


property Color :


property Columns :


property Ctl3D :


property DataField : String


property DataSource : TDataSource


property DragCursor :


property DragMode :


property Enabled :


property ExtendedSelect :


property ExtraField : String


property Font :


property IntegralHeight :


property ItemHeight :


property MultiSelect :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Sorted :


property Style :


property TabOrder :


property TabStop :


property Visible :


property Current_Item : String


property Current_Value : LongInt


property ItemIndex :


property Items :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawItem :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMeasureItem :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FDataLink : TFieldDataLink;


FExtraField : String;


FFillingItems : Boolean;



Constructors


Constructor Create(AOwner : TComponent);


Functions


Destructor Destroy;


Procedure ActiveChange(Sender : TObject);

If execution gets here, ExtraField is not acceptable


Procedure CheckExtraField;


Procedure DataChange(Sender : TObject);


Procedure FillItems;


Function GetCurrItem : String;

If DataSet is open, Check if the entered fieldtype is OK


Function GetcurrValue : LongInt;


Function GetdataField : String;


Function GetDataSource : TDatasource;


procedure SetDataField(Value : String);


Procedure SetDataSource(Value : TDatasource);


Procedure SetExtraField(Value : String);


Properties


property Align :


property BorderStyle :


property Color :


property Columns :


property Ctl3D :


property DataField : String


property DataSource : TDataSource


property DragCursor :


property DragMode :


property Enabled :


property ExtendedSelect :


property ExtraField : String


property Font :


property IntegralHeight :


property ItemHeight :


property MultiSelect :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Sorted :


property Style :


property TabOrder :


property TabStop :


property Visible :


property Current_Item : String


property Current_Value : LongInt


property ItemIndex :


property Items :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnDrawItem :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMeasureItem :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FDataLink : TFieldDataLink;


FExtraField : String;


FFillingItems : Boolean;