Class TDSComboBox (unit DSComboBox)

Inherits from

TCustomComboBox

Constructors


constructor Create(AOwner:TComponent);

Get or get parameters value


Functions

procedure Close;

Open query and fill Combobox

Return SQL property


destructor Destroy;


function FieldByName(FieldName:String):TField;

Close DSCombobox

function Find(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;

Get field value by it's name

procedure FindSet(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions);


procedure Loaded;


procedure Open;

Public declarations

Set parameters' value


function ParamByName(ParamName:String):TParam;

Get value by field name

procedure Refresh;

Close query and clear Combobox

function GetActive:Boolean;


function GetSql:TStringList;

Set SQL property

procedure SetActive(Status:Boolean);


procedure SetSql(Sql:TStringList);

Open DSCombobox

Properties

property Color :


property Ctl3D :


property DataBaseName : String

Must be published before Items

property DiplayedField : String


property DragCursor :


property DragMode :


property DropDownCount :


property Enabled :


property Font :


property MaxLength :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property SQL : TStringList

Set or get database name

property Style :

Published declarations

property Text :


property Visible :


property Active : Boolean


property Items :


Events

event OnChange :

Set or get field which displayed in combobox

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 :


event OnStartDrag :


Variables

FDataBaseName : String;


FDisplayedField : String;


FQuery : TQuery;

Private declarations


Constructors


constructor Create(AOwner:TComponent);

Get or get parameters value


Functions


procedure Close;

Open query and fill Combobox

Return SQL property


destructor Destroy;


function FieldByName(FieldName:String):TField;

Close DSCombobox


function Find(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;

Get field value by it's name


procedure FindSet(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions);


procedure Loaded;


procedure Open;

Public declarations

Set parameters' value


function ParamByName(ParamName:String):TParam;

Get value by field name


procedure Refresh;

Close query and clear Combobox


function GetActive:Boolean;


function GetSql:TStringList;

Set SQL property


procedure SetActive(Status:Boolean);


procedure SetSql(Sql:TStringList);

Open DSCombobox


Properties


property Color :


property Ctl3D :


property DataBaseName : String

Must be published before Items


property DiplayedField : String


property DragCursor :


property DragMode :


property DropDownCount :


property Enabled :


property Font :


property MaxLength :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property SQL : TStringList

Set or get database name


property Style :

Published declarations


property Text :


property Visible :


property Active : Boolean


property Items :


Events


event OnChange :

Set or get field which displayed in combobox


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 :


event OnStartDrag :


Variables


FDataBaseName : String;


FDisplayedField : String;


FQuery : TQuery;

Private declarations