Ver Mensaje Individual
  #2  
Antiguo 29-06-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
Las propiedades aparecen así, cuando estas propiedades son un objeto persistente

Código Delphi [-]
type
  TMisPropiedades = class(TPersistent)
  private
    FPropiedad1: Integer;
    FPropiedad2: Integer;
  published
    property Propiedad1: Integer read FPropiedad1 write FPropiedad1;
    property Propiedad2: Integer read FPropiedad2 write FPropiedad2;
  end;

  TMiComponente = class(TComponent)
  private
    FMisPropiedades: TMisPropiedades;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property MisPropiedades: TMisPropiedades read FMisPropiedades  write FMisPropiedades;
  end;

implementation

constructor TMiComponente.Create(AOwner: TComponent);
begin
  inherited;
  FMisPropiedades := TMisPropiedades.Create ;
end;

destructor TMiComponente.Destroy;
begin
  FMisPropiedades.Free;
  inherited;
end;
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita