Ayuda! ObjectBinaryToText+WriteComponent+DefineProperties

[rounin]

Text Format de DFM no soporta este combinacion.

Hay tres casos (como yo se) de guardar los componentes en DFM
y ningun de ellos puede usarse con DefineProperties:

1) Referencia.
Se guarda como el nombre.

Código Delphi [-]
----------------------
  object Panel1: TPanel
  ..
    PopupMenu = PopupMenu1       {TOtherForm.PopupMenu1}
  ..
  end
----------------------

2) Componente filial (solo TControl)
Se guarda como

Código Delphi [-]
 
----------------------
  object Panel1: TPanel
    ..
    object Button1: TButton    {object/inherited/inline}
      Left = 48
      Top = 56
      ..
    end
    ..
  end
----------------------

3) Subcomponente
Se guarda como serie de propiedades.
No puede tener componentes filial (no tiene mecanismo de guardarlos en DFM).

Código Delphi [-]
----------------------
  object LabeledEdit1: TLabeledEdit
    ..
    EditLabel.Width = 62
    EditLabel.Height = 13
    EditLabel.Caption = 'LabeledEdit1'
    ..
  end
----------------------

En tu caso hay suguientes posibilidades:

1) Crear TMiembro como Subcomponent de TPrincipal.
(Sin DefineProperties)

Código Delphi [-]
 
constructor TPrincipal.Create(aOwner: TComponent);
begin
  inherited;
  FMiembro := TMiembro.Create( Self );
  FMiembro.SetSubcomponent(True);
end;

2) Usar Filer.DefineBinaryProperty en lugar de Filer.DefineProperty.
Datas escribidas por Filer.DefineBinaryProperty no estan combertido en texto.

[aprendiz2]

Muchas gracias, Rounin por su paciencia ! Necesito mas su ayuda !

Probe FMiembro.SetSubcomponent(True);pero no compila ( estoy en Delphi 5 ).

Que estoy haciendo mal ? ( por favor tenga paciencia !.. tengo mucho que aprender ).

Pregunta 1

Hay algun problema "escondido" al llamar a Writer.Writecomponent para forzar la escritura de FMiembro ? ( olvidandonos por el momento de ObjectBinayToText )

Pregunta 2

Cual es la forma correcta de escribir el objeto Principal en el stream, para poderlo recuperar despues con un ReadComponent ? ( olvidandonos por el momento de ObjectBinayToText )

Pregunta 3

Si Principal es el owner de FMiembro, como logro que el streaming system lo escriba automaticamente al stream ? ( writeComponent( xForm ) lo hace muy bien ! ).
( he probado de muchas formas y no lo logro sin el DefineProperties ).


Gracias otra vez por su ayuda y paciencia !

aprendiz2