Malas decisiones cortan la herencia

[roman]

A raiz del hilo UpperCase en DBGrid me percato de cómo a veces, incluso los "grandes" toman malas decisiones.

La clase TCustomGrid, madre de TDBGrid, declara el método virtual CreateEditor:

Código Delphi [-]
type
  TCustomGrid = class(TCustomControl)
    ...
  protected
    function CreateEditor: TInplaceEdit; virtual;
  end;

con la clara intención de que los descendientes puedan usar el tipo de editor que deseen adaptado a sus necesidades. De hecho, así lo establece la ayuda:

CreateEditor is exposed as a protected method so that descendants of TCustomGrid can substitute a specialized descendant of TInplaceEdit to handle cell editing

Uno de tales descendientes es TDBGrid, quien, en efecto sustituye el editor por uno de la clase TDBGridInplaceEdit:

Código Delphi [-]
function TCustomDBGrid.CreateEditor: TInplaceEdit;
begin
  Result := TDBGridInplaceEdit.Create(Self);
end;

Todo suena muy bien. Pero resulta que la clase TDBGridInplaceEdit, está declarada en la sección implementation de la unidad DBGrids, quedando así oculta al exterior.

Entonces, derivados de TDBGrid son incapaces de establecer su propio editor de celdas. Pueden hacerlo, pero saltándose un paso en la herencia y perdiendo, por tanto, los beneficios de TDBGridInplaceEdit.

// Saludos