Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Cargar Propiedades en el Object Inspector (https://www.clubdelphi.com/foros/showthread.php?t=45353)

droguerman 29-06-2007 19:35:06

Cargar Propiedades en el Object Inspector
 
saludos:

Tengo la Siguiente Pregunta, como cargar las propiedades de una propiedad que no derive de TComponent en el Object Inspector, me explico mejor, han visto que los derivados de TCollectionItem como los Columns de un dbGrid cargan en el Object Inspector, como se puede hacer??

dec 29-06-2007 20:07:59

1 Archivos Adjunto(s)
Hola,

A ver si dices algo así... (que hace poco me he pegado con ello):

Código Delphi [-]
unit UComponente;

interface

uses
  Classes;

type
  TElementos = class;
  
  TComponente = class(TComponent)
  private
    FElementos: TElementos;
    procedure SetElementos(elementos: TElementos);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy(); override;
  published
    property Elementos: TElementos read FElementos write SetElementos;
  end;

  TElemento = class(TCollectionItem)
  private
    FNombre: string;
  published
    property Nombre: string read FNombre write FNombre;
  end;

  TElementos = class(TCollection)
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples',[TComponente]);
end;

{ TComponente }

constructor TComponente.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FElementos := TElementos.Create(TElemento);
end;

destructor TComponente.Destroy();
begin
  FElementos.Free();
  inherited Destroy();
end;

procedure TComponente.SetElementos(elementos: TElementos);
begin
  FElementos.Assign(elementos);
end;

end.

droguerman 29-06-2007 20:39:47

ok es casi perfecto solo que culpa mía me faltó especificar, no quiero usar el TCollection, porque le faltan métodos para antes y despues de insertar o eliminar un elemento, y si los tiene no funcionan bien, ya he probado con added y deleted en delphi 7 y estan marcados como deprecated, es decir quiero algo parecido a esto:
Código Delphi [-]
   TComprobante = class(TPersistent)
      cantidad : extended;
      nombre : string;
   end;


....
 private
     fcomprobantes: TList; //para guardar mis comprobantes
 published
     property  comprobantes:TList;

de crear el editor de propiedades y listar los items me encargo yo, solo que no se como acceder al object inspector para poner en ahi la cantidad y nombre.


saludos y gracias dec


La franja horaria es GMT +2. Ahora son las 03:16:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi