TDBGrid ; property Columns - überschreiben

[himitsu]

Delphi-Quellcode:

type
  TMyDBGrid = class(TDBGrid)
  protected
    function CreateColumns: TDBGridColumns; override;
  end;

  TMyDBGridColumns = class(TDBGridColumns)
  published
    property CheckBoxes: ...;
  end

  TMyColumn = class(TColumn)
  published
    property CheckBox: ...;
  end

function TMyDBGrid.CreateColumns: TDBGridColumns;
begin
  //Result := TMyDBGridColumns.Create(Self, TColumn);
  Result := TMyDBGridColumns.Create(Self, TMyColumn);
end;

So?