Fórum Criando componente herdado do TDBGrid #359996

unit EasyDBGrid;

interface

uses
  SysUtils, Classes, Controls, Grids, DBGrids, dialogs, DB, DBClient, graphics;

type
  TEasyDBGrid = class(TDBGrid)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    procedure TitleClick(Column: TColumn);
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(´Easy´, [TEasyDBGrid]);
end;


{ TEasyDBGrid }

procedure TEasyDBGrid.TitleClick(Column: TColumn);
begin
  Column.Title.Caption := ´teste´;
  Column.Font.Color := clRed;
  inherited TitleClick(Column);
end;

end.