Введение в DELPHI

           

Управление TDBGrid во время выполнения


Объект DBGrid может быть полностью реконфигурирован во время выполнения программы. Вы можете прятать и показывать колонки, изменять порядок показа колонок и их ширину.

Вы можете использовать свойство Options объекта DBGrid, чтобы изменить ее представление. Свойство Options может принимать следующие возможные значения:

DgEditingУстановлен по-умолчанию в true, позволяет пользователю редактировать grid. Вы можете также установить свойство ReadOnly grid в True или False.
DgTitlesБудут ли видны названия колонок.
DgIndicatorБудут ли видны небольшие иконки слева.
DgColumnResizeМожет ли пользователь менять размер колонки.
dgColLinesПоказывать ли линии между колонками.
dgRowLinesПоказывать ли линии между строками.
dgTabsМожет ли пользователь использовать tab и shift-tab для переключения между колонками.

Как объявлено в этой структуре: TDBGridOption = (dgEditing, gdAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs);

Например Вы можете установить опции в Runtime написав такой код: DBGrid1.Options := [dgTitles, dgIndicator];

Если Вы хотите включать и выключать опции, это можно сделать с помощью логических операций. Например, следующий код будет добавлять dgTitles к текущему набору параметров: DBGrid1.Options := DBGrid1.Options + [dgTitles];

Пусть есть переменная ShowTitles типа Boolean, тогда следующий код позволяют включать и выключать параметр одной кнопкой: procedure TForm1.Button3Click(Sender: TObject); begin if ShowTitles then DBGrid1.Options := DBGrid1.Options + [dgTitles] else DBGrid1.Options := DBGrid1.Options - [dgTitles]; ShowTitles := not ShowTitles; end;

Если Вы хотите скрыть поле в run-time, то можете установить свойство visible в false: Query1.FieldByName('CustNo').Visible := False; Query1CustNo.Visible := False;

Обе строки кода выполняют идентичную задачу. Чтобы показать поле снова, установите видимый в true: Query1.FieldByName('CustNo').Visible := True; Query1CustNo.Visible := True;

Если Вы хотите изменить положение колонки в Runtime, можете просто изменить индекс, (первое поле в записи имеет индекс нуль): Query1.FieldByName('CustNo').Index := 1; Query1CustNo.Index := 2;

По-умолчанию, поле CustNo в таблице Customer является первым. Код в первой строке перемещает это поле во вторую позицию, а следующая строка перемещает его в третью позицию. Помните, что нумерация полей начинается с нуля, так присвоение свойству Index 1 делает поле вторым в записи. Первое поле имеет Index 0.

Когда Вы изменяете индекс поля, индексы других полей в записи изменяются автоматически.

Если Вы хотите изменить ширину колонки в Runtime, только измените свойство DisplayWidth соответствующего TField. Query1.FieldByName('CustNo').DisplayWidth := 12; Query1CustNo.DisplayWidth := 12;

Величина 12 относится к числу символов, которые могут быть показаны в видимом элементе.

Программа DBGR_RT показывает как работать с DBGrid в Runtime. Программа достаточно проста, кроме двух небольших частей, которые описаны ниже. Первая часть показывает, как создать check box в Runtime, а вторая показывает, как изменить порядок пунктов в listbox в Runtime.

При создании формы (событие OnCreate) ListBox заполняется именами полей, далее создается массив объектов CheckBox, соответствующий полям в таблице. Сперва все CheckBox'ы выбраны и все поля в таблице видимы. Программа узнает через TTable1 имена полей и присваивает их свойству Caption соответствующего CheckBox. Кроме того, обработчику события OnClick всех CheckBox'ов присваивается процедура ChBClick, которая и включает/выключает поля в DBGrid. procedure TForm1.FormCreate(Sender: TObject); var i : Word; R : Array[0..49] of TCheckBox; begin {Fill ListBox} ListBox1.Clear; for i:=0 to Table1.FieldCount-1 do ListBox1.Items.Add(Table1.Fields[i].FieldName); {Make CheckBoxes} for i:=0 to Table1.FieldCount-1 do begin R[I] := TCheckBox.Create(Self); R[I].Parent := ScrollBox1; R[I].Caption := Table1.Fields[i].FieldName; R[I].Left := 10; R[I].Top := I * CheckBox1.Height + 5; R[I].Width := 200; R[I].Checked := True; R[I].OnClick := ChBClick; end; end;

Большая часть кода в этом примере выполняет относительно простые задачи, типа назначения имен и положений check boxes. Вот две ключевых строки: R[I] := TCheckBox.Create(Self); R[I].Parent := ScrollBox1;

Первая строки создает CheckBox с заданным Owner (Владельцем). Вторая строки назначает Parent (Родителя) для CheckBox. Чтобы понять различия между Родителем и Владельцем, посмотрите соответствующие свойства в online-help.

Программа содержит ListBox, который показывает текущий порядок полей в DataSet. Для изменения порядка полей в DataSet (а, следовательно, в DBGrid) используются две кнопки. При нажатии на одну из кнопок, выбранное в ListBox'е поле перемещается на одну позицию вверх или вниз. Синхронно с этим меняется и порядок полей в DBGrid. Код, показанный ниже, изменяет Index поля для Table1, изменяя, таким образом, позицию поля в DBGrid. Эти изменения касаются только визуального представления DataSet. Физически данные на диске не изменяются. procedure TForm1.downButtonClick(Sender: TObject); var i : Integer; begin with ListBox1 do if (ItemIndex<Items.Count-1)and(ItemIndex<>-1) then begin i := ItemIndex; {move ListBox item} Items.Move(i, i+1); ItemIndex := i+1; {move Field} Table1.Fields[i].Index:=i+1; end; end;

Последняя строка в примере как раз та, которая фактически изменяет индекс колонки, которую пользователь хочет переместить. Две строки кода непосредственно перед ней перемещают текущую строку в ListBox на новую позицию.

Внешний вид программы DBGR_RT показан на рис.4

Рис.4: Программа DBGR_RT




Содержание  Назад  Вперед