[Klassenas]

Создаёшь компонент-наследник стандартного DBGrid и в нём фигаришь необходимые свойства:

Код:

unit CoolDBGrid;

interface

uses
  SysUtils, Classes, Controls, Grids, DBGrids, WinTypes, WinProcs, Messages,
  Graphics, Forms, Dialogs, DB, Menus;

type
  TCoolDBGrid = class(TDBGrid)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    property Canvas;
    function CellRect(ACol, ARow: Longint): TRect;
    property Col; //текущий столбец
    property Row;//текущая строка
    property InplaceEditor;//Содержимое ячейки. Можно использовать для копирования в буфер обмена
    property DefaultRowHeight;//Высота строки по умолчанию
  published
    { Published declarations }
    property OnClick;//Щелчок мыши
    property RowCount;//Количество строк (вместе с заголовками)
    property ColCount;//Количество столбцов (Вместе с индикатором)
    property VisibleColCount;//Примерно то же самое
    property VisibleRowCount;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Others', [TCoolDBGrid]);
end;

function TCoolDBGrid.CellRect(ACol, ARow: Longint): TRect;
begin
  Result := inherited CellRect(ACol, ARow);
end;

end.