Ocultar propiedades de la herencia

[elcolo83]

Muchas gracias por aclararme las dudas...

Saludos

[[basti]]

En vez de heredar de TListBox, puedes heredar de TCustomListBox. Las clases TCustomXxxx son las mismas que sus correspondientes sin el custom. La diferencia está en que las propiedades no son públicas. Las que te interese hacer públicas las puedes declarar en la sección Published.

[[Al González]]

¡Hola!

Empezado por basti

...En vez de heredar de TListBox, puedes heredar de TCustomListBox. Las clases TCustomXxxx son las mismas que sus correspondientes sin el custom. La diferencia está en que las propiedades no son públicas. Las que te interese hacer públicas las puedes declarar en la sección Published.

En realidad sí son públicas (Public) en muchos casos. TCustomListBox.Items es una propiedad pública, pero no publicada. Existe una diferencia importante entre un término y el otro.

Una sección Public declara elementos públicos que pueden ser accedidos desde cualquier lugar del código.

Una sección Published declara elementos públicos publicados, es decir, que además de ser públicos pueden ser accedidos por los mecanismos del IDE en tiempo de diseño (como el inspector de objetos) y guardar sus valores en un DFM.

Por el requerimiento del caso, al igual que maeyanes y basti, aconsejo derivar la nueva clase de TCustomListBox.

Me sorprende la cantidad de gente que ya le está entrando a la POO de componentes Delphi derivados. Me pregunto si los programadores asiduos a otros lenguajes gozarán de esta misma capacidad y libertad, además del interés por crear sus propias clases de objetos. Son muchos los que por fin se animan a sacarle más provecho a la enorme potencia de Delphi. Enhorabuena elcolo83.

Un abrazo custom.

Al González.

[Neftali [Germán.Estévez]]

En realidad sí hay un pequeño truco o "chapucilla" para ocultar en el inspector de Objetos propiedades published de componentes que están por "encima" en la herencia.
Lo hemos discutido alguna vez, por ejemplo aquí.

Otra cosa es que te plantees si es correcto o no. Es decir, que si a un componente A que deriva de otro B, debes ocultarle propiedades, tal vez sea porque A no deberia derivar de B (sólo piénsalo antes de continuar).
De todas formas si la herencia es correcta, y te sigue interesando hacerlo, puedes usarlo, funciona bien.

[elcolo83]

Anda bien lo que decis neftali para ocultar las propiedades (eso no es poliformismo? o es otra cosa?) el unico problema es que ni si quiera yo dentro del mismo componente tengo acceso a Items cuando uso eso...

[[maeyanes]]

Hola...

No es poliformismo, el poliformismo es otra cosa... Lo que te comenta Neftali es solo una técnica...


Puedes usar la propiedad de la clase padre tal como:

Código Delphi [-]
begin
  inherited Items[0] := 'Un valor';
end;

Saludos...

[elcolo83]

Perdon... cuando me referia a poliformismo me referia a este codigo

Código Delphi [-]
type
  // Tipo Dummy
  TDummyProp = (dummyprop);
  // definición del componente derivado
  tcomboBoxNew = class(tcombobox)
  private
    { Private declarations }
    _DummyProp: TDummyProp;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    // Ocultar propiedades ============================
    property Charcase:TDummyProp read _DummyProp;
    property Color:TDummyProp read _DummyProp;
    property Constraints:TDummyProp read _DummyProp;
    property Ctl3D:TDummyProp read _DummyProp;
    property Cursor:TDummyProp read _DummyProp;
  end;

que esta en el link que envio neftali.... lo que se hace en este codigo.... es poliformismo???

[Neftali [Germán.Estévez]]

Empezado por elcolo83

...el unico problema es que ni si quiera yo dentro del mismo componente tengo acceso a Items cuando uso eso...

En ese caso debes utilizar la versión heredada, que no ha sido modificada.
Si en tu componente has utilizado el Dummy con la propiedad Caption, por decir algo, para modificarla dentro de tu componente debes utilizar:

Código Delphi [-]
  inherited Caption := 'Modificando el valor...';

[elcolo83]

Les agradezco a todos por el interes en el tema; pude hacer lo que queria.... lo que hice fua plicarle el Dummy a la propiedad items del componente heredado de un TListBox (dentro del componente se modifica usando el inherited como deijo neftali) y luego redefini la funcion additems para que no haga nada cuando esta es invocada...

Ademas de solucionarme el problema me explicaron algunas cosas que no tenia muy en claro asi una vez mas se los agradezco... y agregando un poco a lo que decia "Al Gonzalez", creo que Delphi es imprecionante a la hora de manejar la OOP y solo lo limita la imaginacion de quien programe en este sorprendente lenguaje... como decia mi profesor de informatica: "usen la imaginacion, del resto se encarga el compilador".