Delphi 重写控件的一个例子。

unit DBGridEx;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Grids, DBGrids;

 

type

  TMyInplaceEdit = class(TInplaceEdit)

  published

    property Color;

  end;

 

  TMyDBGrid = class(TDBGrid)

  protected

    function CreateEditor: TInplaceEdit; override;

  end;

 

procedure Register;

 

implementation

 

procedure Register;

begin

  RegisterComponents('Standard', [TMyDBGrid]);

end;

 

function TMyDBGrid.CreateEditor: TInplaceEdit;

var

   aEdit: TMyInplaceEdit;

begin

  aEdit := TMyInplaceEdit.Create(Self);

  aEdit.Color := clGreen;  //单元格设置成绿色

  Result := aEdit;

end;

 

end.