Советы по Delphi. Версия 1.4.3 от 1.1.2001

DBGrid – переход к следующей записи

Delphi 1 

Для перехода к следующей записи:

MyDBGrid.SelectedIndex := MyDBGrid.SelectedIndex + 1;

Колонки DBGrid индексируются с 0, поэтому SelectedIndex := 0 даст вам первую колонку. Свойство FieldCount вернет вам количество колонок, так что вы без труда можете пробежаться по всей матрице данных.

onClick и DBGrid

Многие программисты хотели бы использовать OnClick у TDBGrid. Но TDBGrid не имеет такого события. В данном документе рассказывается о том, как обеспечить поддержку события OnClick для TDBGrid. Рассказанная здесь технология может пригодиться при добавлении других свойств к различным объектам. Если вы знаете, что сделать это мог предок, то можно заставить сделать это и наследника. Ключевым моментом здесь можно считать добавление csClickEvents к свойству-набору элемента управления ControlStyle. Это позволит элементу управления, приведенному к типу THack, получать и правильно обрабатывать системные сообщение о щелчке мышью. Назначение OnClick какого-либо элемента управления OnClick DBGrid1 позволяет воспользоваться событием OnClick для элемента управления, которое его не поддерживает.

Это "неофициальный" путь. Существует несколько причин того, почему dbgrid не поддерживает этого события. Используйте этот код на свой страх и риск.

unit Udbgclk;

interface

uses Windows, Messages, SysUtils, Classes, Graphics,Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DBTables, DB;

type
 thack = class(tcontrol);

 TForm1 = class(TForm)
 DBGrid1: TDBGrid;
 Button1: TButton;
 DataSource1: TDataSource;
 Table1: TTable;
 procedure Button1Click(Sender: TObject);
 procedure FormClick(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
 THack(dbgrid1).controlstyle :=THack(dbgrid1).controlstyle + [csClickEvents];
 THack(dbgrid1).OnClick := Form1.OnClick;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
 messagebeep(0);
 application.processmessages;
end;
end.

Числа с плавающей точкой в DBGrid

Delphi 1 

Для показа в табличной сетке дробных чисел, выберите таблицу, с которой связана ваша сетка (через datasource, источник данных).

Активизируйте редактор полей (правой кнопкой мыши) и выберите поле, в котором вы хотите видеть дробное число.

Измените значение свойств 'DisplayFormat' и 'EditFormat', чтобы дробь имела формат такой, какой вы хотите (к примеру, шаблон '0.00', позволяющий сетке показывать поле с двумя цифрами после запятой).

Дважды щелкните на компоненте table, расположенном на форме. Нажмите на кнопку 'Add'. Будут показаны все поля вашей таблицы. Выберите их в списке «Available field» (доступные поля) и щелкните на кнопке OK. Теперь при щелчке на имени поля, в Инспекторе Объектов будут показаны все свойства, относящиеся к данному полю, здесь можно изменить текст заголовка, выводимый формат «DisplayFormat» (это как раз то, что вам нужно, измените его на ####0.0) и пр. 

Получение данных DBGrid прежде, чем они будут отправлены: как мне узнать, что пользователь вводит в DBGrid?

Delphi 3 

Вы можете «видеть» что набирается в TDBGrid, «смотря» на контрол сетки TInPlaceEdit. Вы должны убедиться только в том, что к моменту использования TInPlaceEdit, контрол уже создан. Следующая функция покажет данные, редактируемые в колонках сетки:

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var B: byte;
begin
 for B := 0 to DBGrid1.ControlCount - 1 do
 if DBGrid1.Controls[B] is TInPlaceEdit then begin
 with DBGrid1.Controls[B] as TInPlaceEdit do begin
 Label1.Caption := 'Текст = ' + Text;
 end;
 end;
end;

Хочу шапку в TDBGrid. Как сделать?

Nomadic советует:

Уже реализовано в виде вот этого компонента — © Andre

unit bdbgrid;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Math;
type
 TOnDrawTitleEvent = procedure(ACol : integer; ARect : TRect; var TitleText : string) of object;

 TBitDBGrid = class(TDBGrid)
 private
 FBitmapBrowse : TBitmap;
 FBitmapEdit : TBitmap;
 FBitmapInsert : TBitmap;
 FBitmapFill : TBitmap;
 FRealTitleFont : TFont;
 FOnDrawTitle : TOnDrawTitleEvent;
 FResizeFlag : boolean;
 { Private declarations }