Ver Mensaje Individual
  #1  
Antiguo 04-04-2007
Decker Decker is offline
Miembro
 
Registrado: feb 2005
Posts: 29
Reputación: 0
Decker Va por buen camino
Problema con herencia

Hola compañeros, queria añadir una propiedad published a un formulario, para ello público la propiedad antes declarada en un antecesor.

Código Delphi [-]
Antecesor (abuelo):
 
type
  TBoton=(Uno, Dos, Tres);
  TBotones=set of TBoton;
  TForm1 = class(TForm)
  private
    { Private declarations }
    FBotones: TBotones;
    procedure WBotones(Value: TBotones);
  protected
    property Botones: TBotones read FBotones write WBotones;
  public
    { Public declarations }
  end;

procedure TForm1.WBotones(Value: TBotones);
begin
  FBotones:=Value;
end;
 
PreAntecesor(Padre):
 
type
  TForm2 = class(TForm1)
  private
    { Private declarations }
  public
    { Public declarations }
  published
    property Botones;
  end;
 
Form en cuestión:
 
type
  TForm3 = class(TForm2)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Si hago lo mismo con TPanels, en la barra de propiedades (F11), me aparece una nueva Propiedad del tipo Set, si lo hago con formularios, no funciona. ¿Alguien sabe el porque?

Última edición por Decker fecha: 04-04-2007 a las 14:49:11.
Responder Con Cita