Class TrDBListBoxUDB

Unit

Declaration

type TrDBListBoxUDB = class(TrDBListBox)

Description

TrDBListBox descendant load list of items from any SQL command

Hierarchy

  • TrDBListBox
  • TrDBListBoxUDB

Overview

Methods

Protected procedure Loaded; override;
Protected procedure Notification(AComponent: TComponent; Operation: TOperation); override;
Protected procedure SetParent(AParent: TWinControl); override;
Protected procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED;
Protected procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
Protected procedure DoEnter; override;
Public procedure ReloadItems;
Public function GetListField(const FieldName: string): TField; overload;
Public function GetListField(FieldIndex: integer): TField; overload;

Properties

Public property ListDataSet: TQueryIntList read FListDataSet;
Published property ListSQL: TStrings read FListSQL write SetListSQL;
Published property ListConnection: TConnectionUDB read FListConnection write SetListConnection;
Published property ListAutoLoad: boolean read FListAutoLoad write FListAutoLoad default true;
Published property ListSQLTryNow: boolean read FListSQLTryNow write SetListSQLTryNow default false;
Published property OnGetListSQL: TGetSQLEvent read FGetListSQL write FGetListSQL;
Published property ListButton: TBoundComboButton read FListButton;
Published property ListButtonVisible: boolean read FListButtonVisible write SetListButtonVisible default true;
Published property ListButtonAllwaysEnabled: boolean read FListButtonAllwaysEnabled write FListButtonAllwaysEnabled default true;
Published property ListButtonTableName: string read FListButtonTableName write FListButtonTableName;
Published property OnClickComboButton: TClickComboButton read FClickComboButton write FClickComboButton;
Published property OnListDataSetEvent: TDataSetEvent read FListDataSetEvent write SetListDataSetEvent;
Published property ListAutoReloadEvents: TDatasetEventTypes read FListAutoReloadEvents write FListAutoReloadEvents;

Description

Methods

Protected procedure Loaded; override;
 
Protected procedure Notification(AComponent: TComponent; Operation: TOperation); override;
 
Protected procedure SetParent(AParent: TWinControl); override;
 
Protected procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED;
 
Protected procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
 
Protected procedure DoEnter; override;
 
Public procedure ReloadItems;

open SQL command and refresh list items

Public function GetListField(const FieldName: string): TField; overload;

return Field from internal Dataset to allow reading of field value from selected record

Public function GetListField(FieldIndex: integer): TField; overload;

return Field from internal Dataset to allow reading of field value from selected record

Properties

Public property ListDataSet: TQueryIntList read FListDataSet;

return internal Dataset to allow reading of other fields

Published property ListSQL: TStrings read FListSQL write SetListSQL;

define SQL command, value of first field is used as list text value, value of 2nd field is used as Object value (must be integer)

Published property ListConnection: TConnectionUDB read FListConnection write SetListConnection;

define list UDB connection, if is not used, connection from DataField is used

Published property ListAutoLoad: boolean read FListAutoLoad write FListAutoLoad default true;

define whether ReloadItems is called automatically after loading

Published property ListSQLTryNow: boolean read FListSQLTryNow write SetListSQLTryNow default false;

try to open SQL command in design time

Published property OnGetListSQL: TGetSQLEvent read FGetListSQL write FGetListSQL;

call before opening of SQL to allow update command or set WHERE condition

Published property ListButton: TBoundComboButton read FListButton;

define aux button beside control

Published property ListButtonVisible: boolean read FListButtonVisible write SetListButtonVisible default true;

define visibility of aux button beside control

Published property ListButtonAllwaysEnabled: boolean read FListButtonAllwaysEnabled write FListButtonAllwaysEnabled default true;

define enability of aux button beside control

Published property ListButtonTableName: string read FListButtonTableName write FListButtonTableName;

define TableName which should be edited after ListButtonClick (not used by component)

Published property OnClickComboButton: TClickComboButton read FClickComboButton write FClickComboButton;

define event after ListButtonClick

Published property OnListDataSetEvent: TDataSetEvent read FListDataSetEvent write SetListDataSetEvent;

define event for internal dataset (BeforeOpen, BeforePost... After... ses TDataSetEventTypes

Published property ListAutoReloadEvents: TDatasetEventTypes read FListAutoReloadEvents write FListAutoReloadEvents;

define Datasource events when ReloadItems is called automatically


Generated by PasDoc 0.15.0.