Class TDBValComboBox (unit Dbvalcb)

Inherits from

TComboBox

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure Change;


procedure Click;


procedure DropDown;


procedure KeyPress(var Key: Char);


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure CMExit(var Message: TCMExit);


procedure DataChange(Sender: TObject);


function GetButtonValue(Index: Integer): string;


function GetDataField: string;


function GetDataSource: TDataSource;


function GetField: TField;


function GetReadOnly: Boolean;


function GetValue: string;


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetReadOnly(Value: Boolean);


procedure SetValue(const Value: string);


procedure SetValues(Value: TStrings);


procedure UpdateData(Sender: TObject);


Properties

property DataField : string


property DataSource : TDataSource


property ReadOnly : Boolean


property Values : TStrings


property Field : TField


property ItemIndex :


property Value : string


property DataLink : TFieldDataLink


Events

event OnChange : TNotifyEvent


Variables

FDataLink : TFieldDataLink;


FOnChange : TNotifyEvent;


FValue : PString;


FValues : TStrings;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure Change;


procedure Click;


procedure DropDown;


procedure KeyPress(var Key: Char);


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure CMExit(var Message: TCMExit);


procedure DataChange(Sender: TObject);


function GetButtonValue(Index: Integer): string;


function GetDataField: string;


function GetDataSource: TDataSource;


function GetField: TField;


function GetReadOnly: Boolean;


function GetValue: string;


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetReadOnly(Value: Boolean);


procedure SetValue(const Value: string);


procedure SetValues(Value: TStrings);


procedure UpdateData(Sender: TObject);


Properties


property DataField : string


property DataSource : TDataSource


property ReadOnly : Boolean


property Values : TStrings


property Field : TField


property ItemIndex :


property Value : string


property DataLink : TFieldDataLink


Events


event OnChange : TNotifyEvent


Variables


FDataLink : TFieldDataLink;


FOnChange : TNotifyEvent;


FValue : PString;


FValues : TStrings;