Как установить флажок в DBGrid

Существует множество способов и причин для настройки вывода DBGrid в Delphi. Одним из способов является добавление флажков, чтобы результат был более привлекательным.

По умолчанию, если в вашем наборе данных есть логическое поле, DBGrid отображает их как «True» или «False» в зависимости от значения поля данных. Тем не менее, это выглядит намного лучше, если вы решите использовать «истинный» флажок, чтобы включить редактирование полей.

Создать образец приложения

Запустите новую форму в Delphi и поместите TDBGrid, TADOTable и TADOConnection, TDataSource.

Оставьте все имена компонентов такими, какие они есть, когда их впервые поместили в форму (DBGrid1, ADOQuery1, AdoTable1 и т. Д.). Используйте инспектор объектов, чтобы установить свойство ConnectionString компонента ADOConnection1 (TADOConnection), чтобы указать на образец базы данных MS Access QuickiesContest.mdb.

Подключите DBGrid1 к DataSource1, DataSource1 к ADOTable1 и, наконец, ADOTable1 к ADOConnection1. Свойство ADOTable1 TableName должно указывать на таблицу «Статьи» (чтобы DBGrid отображал записи таблицы «Статьи»).

instagram viewer

Если вы правильно установили все свойства, при запуске приложения (учитывая, что свойство Active компонента ADOTable1 True) по умолчанию DBGrid отображает значение логического поля как «True» или «False» в зависимости от значения данных. поле.

CheckBox в DBGrid

Чтобы показать флажок внутри ячейки DBGrid, нам нужно сделать его доступным для нас во время выполнения.

Выберите страницу «Элементы управления данными» на Палитра компонентов и выбрать TDBCheckbox. Перетащите одну в любом месте формы - не имеет значения, где, так как большую часть времени она будет невидимой или плавающей по сетке.

Чаевые: TDBCheckBox - это элемент управления с учетом данных, который позволяет пользователю выбирать или отменять выбор одного значения, которое подходит для логических полей.

Затем установите для свойства Visible значение False. Измените свойство Color DBCheckBox1 на тот же цвет, что и DBGrid (чтобы он сливался с DBGrid), и удалите подпись.

Самое главное, убедитесь, что DBCheckBox1 подключен к DataSource1 и к правильному полю.

Обратите внимание, что все вышеупомянутые значения свойств DBCheckBox1 могут быть установлены в событии OnCreate формы следующим образом:

процедура TForm1.FormCreate (Отправитель: TObject);
начать
DBCheckBox1.DataSource: = DataSource1;
DBCheckBox1.DataField: = 'Победитель';
DBCheckBox1.Visible: = False;
DBCheckBox1.Color: = DBGrid1.Color;
DBCheckBox1.Caption: = '';
// объяснено позже в статье
DBCheckBox1.ValueChecked: = 'Да, победитель!';
DBCheckBox1.ValueUnChecked: = 'Не в этот раз.';
конец;

Что будет дальше, так это самая интересная часть. При редактировании логического поля в DBGrid нам нужно убедиться, что DBCheckBox1 находится над («плавающей») ячейкой в ​​DBGrid, отображающей логическое поле.

Для остальных (не сфокусированных) ячеек, несущих логические поля (в столбце «Победитель»), нам необходимо предоставить некоторое графическое представление логического значения (True / False). Это означает, что вам нужно как минимум два изображения для рисования: одно для проверенного состояния (истинное значение) и одно для непроверенного состояния (ложное значение).

Самый простой способ сделать это - использовать функцию DrawFrameControl API Windows для рисования непосредственно на холсте DBGrid.

Вот код в обработчике событий OnDrawColumnCell DBGrid, который происходит, когда сетка должна нарисовать ячейку.

процедура TForm1.DBGrid1DrawColumnCell (
Отправитель: TObject; const Rect: TRect; DataCol:
Integer; Колонка: TColumn; Состояние: TGridDrawState);
Const Проверено: массив[Булева] из Целое число =
(DFCS_BUTTONCHECK, DFCS_BUTTONCHECK или DFCS_CHECKED);
вар
DrawState: Integer;
DrawRect: TRect;
beginif (gdFocused в Состояние) thenbeginif (Колонок. Поле. FieldName = DBCheckBox1.DataField) thenbegin
DBCheckBox1.Left: = Rect. Слева + DBGrid1.Left + 2;
DBCheckBox1.Top: = Rect. Top + DBGrid1.top + 2;
DBCheckBox1.Width: = Rect. Справа - прям. Осталось;
DBCheckBox1.Height: = Rect. Внизу - Rect. Верхний;
DBCheckBox1.Visible: = True;
endendelsebeginif (Колонок. Поле. FieldName = DBCheckBox1.DataField) thenbegin
DrawRect: = Rect;
InflateRect (DrawRect, -1, -1);
DrawState: = ISChecked [Столбец. Поле. AsBoolean];
DBGrid1.Canvas. FillRect (Rect);
DrawFrameControl (DBGrid1.Canvas. Ручка, DrawRect,
DFC_BUTTON, DrawState);
конец;
конец;
конец;

Чтобы завершить этот шаг, нам нужно убедиться, что DBCheckBox1 невидим, когда мы покидаем ячейку:

процедура TForm1.DBGrid1ColExit (Отправитель: TObject);
beginif DBGrid1.SelectedField. FieldName = DBCheckBox1.DataField тогда
DBCheckBox1.Visible: = False
конец;

Нам нужно еще два события для обработки.

Обратите внимание, что в режиме редактирования все нажатия клавиш идут в ячейку DBGrid, мы должны убедиться, что они отправлены в CheckBox. В случае с CheckBox нас в первую очередь интересуют клавиши [Tab] и [Space]. [Tab] должен переместить фокус ввода на следующую ячейку, а [Space] должен переключить состояние CheckBox.

процедура TForm1.DBGrid1KeyPress (Отправитель: TObject; ключ Var: Char);
beginif (ключ = Chr (9)) затем выход;
если (DBGrid1.SelectedField. FieldName = DBCheckBox1.DataField) thenbegin
DBCheckBox1.SetFocus;
SendMessage (DBCheckBox1.Handle, WM_Char, word (Key), 0);
конец;
конец;

Может быть целесообразно, чтобы заголовок флажка изменялся, когда пользователь проверяет или снимает флажок. Обратите внимание, что DBCheckBox имеет два свойства (ValueChecked и ValueUnChecked), которые используются для указания значения поля, представленного флажком, когда он отмечен или не отмечен.

Это свойство ValueChecked содержит «Да, победитель!», А ValueUnChecked равно «Не в этот раз».

процедура TForm1.DBCheckBox1Click (Отправитель: TObject);
beginif DBCheckBox1.Checked тогда
DBCheckBox1.Caption: = DBCheckBox1.ValueChecked
еще
DBCheckBox1.Caption: = DBCheckBox1.ValueUnChecked;
конец;

Запустите проект, и вы увидите флажки по всему столбцу поля Winner.

instagram story viewer