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

[[Chris]]

Marivillosa observación Román!

Parece que andamos muy sensibles a la presencia de Bugs últimamente .

Nuevamente, te recomiendo que reportes tu hallazgo a Embarcadero para que este problema sea solucionado en las próximas actualizaciones.

Saludos,
Chris

[ecfisa]

Hola roman.

No deja de sorprenderme la simplicidad con que abordas (y solucionas) temas que por lo menos para mí son un rompedero de cabeza...


Saludos y gracias por tus explicaciones.

[[maeyanes]]

Hola...

Un problema similar existe con las clases de la unidad Buttons, 3 clases que usan internamente las clases TSpeedButton y TBitBtn están declaradas en la sección implementation.


Saludos...

[roman]

Ja, hombre, gracias, pero en realidad sólo ando en pos de los 16 .

// Saludos

[[Al González]]

Hola Román.

Lo que anotas también a mí me ha llamado la atención. He visto una buena cantidad de clases privadas en la VCL de las cuales a veces se necesita, o al menos se antoja, crear descendientes.

El caso que planteas es un tanto especial por, como bien señalas, la existencia del método virtual CreateEditor en TCustomGrid y el "descaro" que tiene TDBGrid para redefinir ese método haciendo que devuelva un objeto de clase TDBGridInplaceEdit. Una clase de la que no podemos crear descendientes.

Esta reflexión me ha hecho plantearme una pregunta: ¿es realmente imposible crear una clase hija de una que se encuentre declarada en la sección Implementation de otra unidad? Es obvio que el compilador no lo permite, pero qué interesante sería poder crear una "VMT artificial" en tiempo de ejecución, o algo por el estilo que pudiera sacarle la vuelta a ese obstáculo.

Tras el problema que has descrito estoy tentado a investigar y probar algunas ideas, aunque sea sólo para ver hasta qué punto es posible* y qué tanta utilidad podría arrojar.

Espero encontrar un espacio para el experimento...

Saludos.

Al González.

*Por ejemplo se descarta la posibilidad de hacer referencias a elementos no existentes en la clase base, u obtener la dirección de la clase privada sin haberse creado al menos una instancia de ella previamente.