Компонент TDBCtrlGrid внешне напоминает компонентTDBGrid, но никак не связан с классомTCustomDBGrid, а наследуется напрямую от классаTWinControl.

Этот компонент позволяет отображать данные в строках в произвольной форме. Компонент представляет собой набор панелей, каждая из которых служит платформой для размещения данных отдельной записи набора данных. На панели могут размещаться любые компоненты отображения данных, предназначенные для работы с отдельным полем. С каждым таким компонентом можно связать нужное поле набора данных. При открытии набора данных в компоненте TDBCtrlGrid на каждой новой панели создается набор компонентов отображения данных, аналогичный тому, который был создан на одной панели во время разработки.

На панель можно переносить только те компоненты отображения данных, которые показывают значение одного поля для единственной записи набора данных. Нельзя использовать компонентыTDBGrid, TDBCtrlGrid, TDBRichEdit, TDBListBox, TDBRadioGroup, TDBLookupListBox.

После того, как для компонента TDBCtrlGrid задано значение свойстваDataSource, все переносимые на панель компоненты отображения данных автоматически связываются с указанным компонентом TdataSource (табл. 15.5). Самостоятельное задание свойства DataSource для дочерних компонентов отображения данных не допускается. В них требуется определить только поля.

Компонент может отображать панели в одну или несколько колонок. Для задания числа колонок панелей используется свойствоcolcount. Число видимых строк панелей определяется свойствомRowCount. Вертикальное или горизонтальное размещение колонок панелей зависит от значения свойстваOrientation.

При использовании нескольких колонок панелей курсор перемещается по колонке сверху вниз с последующим переходом на следующую колонку. Направление движения курсора не зависит от значения свойстваOrientation.

Размеры одной панели определяются свойствами panelHeight и Panelwidth. Они взаимосвязаны с размерами самого компонента. При изменении значений свойств PanelHeight и Panelwidth размеры компонента изменяются таким образом, чтобы в нем помещалось указанное в свойствахcolcount и RowCount число панелей и наоборот.

Не рекомендуется размещать на панели компонентыTDBMemo и TDBimage, т. к. это может привести к значительному снижению производительности.

Таблица 15.5. Свойства и методы компонента TDBCtrlGrid

Объявление

Тип

Описание

Свойства

property AllowDelete: Boolean;

Pb

Разрешает или запрещает удаление текущей записи

property Allowlnsert: Boolean;

Pb

Разрешает или запрещает вставку новой записи

property Canvas: TCanvas;

Ro

Канва компонента

property ColCount: Integer;

Pb

Определяет число колонок с панелями

property EditMode: Boolean;

Pu

Разрешает или запрещает редактирование данных

type TDBCtrlGridOrientation = (goVertical, goHorizontal);

property Orientation: TDBCtrlGridOrientation;

Pb

Определяет порядок следования записей — по горизонтали или по вертикали

type TDBCtrlGridBorder = (gbNone, gbRaised) ;

property PanelBorder: TDBCtrlGridBorder;

Pb

Определяет способ отображения границы панели

property PanelCount: Integer;

Ro

Содержит число видимых одновременно панелей

property PanelHeight: Integer;

Pb

Определяет высоту панелей в пикселах

property Panellndex: Integer;

Pu

Определяет индекс панели текущей записи

property PanelWidth: Integer;

Pb

Определяет ширину панелей в пикселах

property RowCount: Integer;

Pb

Определяет число строк видимых панелей

property SelectedColor: TColor;

Pb

Определяет фоновый цвет панели текущей записи

property ShowFocus : Boolean;

Pb

Разрешает или запрещает выделение вокруг панели текущей записи

Методы

type TDBCtrlGridKey = (gkNull, gkEditMode, gkPriorTab, gkNextTab, gkLeft, gkRight, gkUp, gkDown, gkScrollUp, gkScrollDown, gkPageUp, gkPageDown, gkHome, gkEnd,  gklnsert, gkAppend, gkDelete, gkCancel) ;

procedure DoKey(Key: TDBCtrlGridKey) ;


Выполняет операцию, заданную при помощи параметраKey.

Доступны операции навигации по записям, перевода в режим редактирования, вставки, удаления записей, отмены изменений

procedure KeyDown (var Key: Word; Shift: TShiftState) ; override; 


Используется при нажатии клавиши для трансляции кодов клавиш

Методы-обработчики событий

type TPaintPanelEvent =  procedure (DBCtrlGrid: TDBCtrlGrid; Index: Integer) of object; 

property OnPaintPanel :  TPaintPanelEvent; 


Вызывается при перерисовке панели. Параметр Index соответствует индексу панели