TprxDBComboBox

Descripción

El objeto TprxDBComboBox (Control de edición DB para enumeraciones.) es un control de edición usando cuando el valor del campo se define en Enumeraciones.

Combobox en la pantalla de cuentas.

El control tiene una caja de edición, y una lista pull-down en la que están los valores posibles, el valor del campo no se tipea, sino que se elige de la lista.

Identidad

• Ancestro: TDBComboBox
• Carpeta: C:\DevelopPrx\library
• Archivo: prxDBComboBox.pas

Declaración

type
  TprxDBComboBox_GetItems = procedure (aItems: TStrings) of object;

type
  TprxDBComboBox = class(TDBComboBox)
  private
    FEnumeration: String;

    FOnEnterField: TprxADOOnEnterField;
    FOnExitField: TprxADOOnExitField;

    FConstraintItems: TStringList;
    FAllItems: TStringList;

    FGetItemsCall: TprxDBComboBox_GetItems;

    procedure   CMEnter(var Message: TCMEnter); message CM_ENTER;
		procedure   CMExit(var Message: TCMExit); message CM_EXIT;
    procedure   CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
    procedure   FieldMessage(var Message: TprxADODataSetMessage); message MSG_PRXADODATASETMESSAGE;
  protected
    procedure   SetEnumeration(aValue: String);

    property    ConstraintItems: TStringList read FConstraintItems write FConstraintItems;
    property    AllItems: TStringList read FAllItems write FAllItems;
    property    GetItemsCall: TprxDBComboBox_GetItems read FGetItemsCall write FGetItemsCall;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure   Loaded; override;

    procedure   SelectItemPublic;
    procedure   CargarElementos(aOnEnter: Boolean);

    procedure   AssignDataSource(aDataSource: TDataSource; aDataField: String; aEnumeration: String); overload;
    procedure   AssignDataSource(aDataSource: TDataSource; aDataField: String; aGetItems: TprxDBComboBox_GetItems); overload;

    property    Enumeration: String read FEnumeration write SetEnumeration;
  published
    property    OnEnterField: TprxADOOnEnterField read FOnEnterField write FOnEnterField;
    property    OnExitField: TprxADOOnExitField read FOnExitField write FOnExitField;
  end;

FOnEnterField: TprxADOOnEnterField

Permite definir una referencia al procedimiento que debe manejar el OnEnter.

FOnExitField: TprxADOOnExitField

Permite definir una referencia al procedimiento que debe manejar el OnExit.

Implementación

function TprxDBComboBoxCreate(aOwner: TComponent; aDataSource: TDataSource; aFieldName: String): TprxDBComboBox

Función definida fuera de la clase usada para crear componentes de este tipo.