Problemas al guardar componentes con TStream!!

[OzzyzzO]

Thanks! Rounin. I think that your solution will help me. Very good explanation. Thanks again!

Saludos

[vtdeleon]

Saludos

Rounin, Sabes escribir en español?, Lo digo porque en este foro la gran mayoría hablamos(o escribimos) en español. Entonces los forista que consulten este hilo y tenga pocos conocimiento del ingles estarán despistado.

Ante todo, Es muy grata y muy buena tu ayuda (hasta a mi me has ayudado). Espero seguir viendote por aqui

[rounin]

Saludos,

Estoy estudiando español,
(yo periodicamente voy en comisiones de servicio a España)
pero mi nivel de español no es bastante alto,
y lo escribir en español todavía es dificil para mi.
Lo siento.

[vtdeleon]

Saludos

Empezado por rounin

pero mi nivel de español no es bastante alto,

Cómo va ser. Se entiende perfectamente

Empezado por rounin

y lo escribir en español todavía es dificil para mi.

Aquí te serviría de práctica

[rounin]

Saludos,

pienso que en tu caso necesita incluir flag csSubcomponent
en tus subcomponentes:

  TDigitalDisplay = class(TCustomPanel)
  private
	FImage1: TImage;
	FStaticText1: TStaticText;
	FPopupMenu1: TPopupMenu;
	{...}
  published
	property StaticText1: TStaticText read FStaticText1; {r/o}
	property Image1: TImage read FImage1;
	property PopupMenu1: TPopupMenu read FPopupMenu1;
	{...}
  end;
 
 
constructor TDigitalDisplay.Create(AOwner: TComponent);
 
   function CreateSubComponent(AClass: TComponentClass): TComponent;
   begin
	 Result := AClass.Create(Self);
	 Result.SetSubComponent(True); {!!!!!!!!}
	 Result.FreeNotification(Self); 
	 if Result is TControl then TControl(Result).Parent := Self;
   end;
 
var
  MenuItem: TMenuItem;
begin
  inherited;
  {...}
  FStaticText1 := CreateSubComponent(TStaticText) as TStaticText;
  FStaticText2 := CreateSubComponent(TStaticText) as TStaticText;
  FStaticText3 := CreateSubComponent(TStaticText) as TStaticText;
  FImage1	  := CreateSubComponent(TImage) as TImage;
  FPopupMenu1  := CreateSubComponent(TPopupMenu) as TPopupMenu;
 
  MenuItem := TMenuItem.Create(PopupMenu1);
  FPopupMenu1.Items.Add(MenuItem);

  with MenuItem do
  begin
	Caption := 'Configurar';
	OnClick := PopupConfigurar;
  end;

end;
 
procedure TDigitalDisplay.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  if (AComponent = FStaticText1) and (Operation = opRemove) then FStaticText1 := nil;
  if (AComponent = FStaticText2) and (Operation = opRemove) then FStaticText2 := nil;
  if (AComponent = FStaticText3) and (Operation = opRemove) then FStaticText3 := nil;
  if (AComponent = FPopupMenu1) and (Operation = opRemove) then FPopupMenu1 := nil;
  if (AComponent = FImage1)	 and (Operation = opRemove) then FImage1	 := nil;
end;

PS Porque creas subcomponentes en AfterConstruction?
Porque no en Create?

[OzzyzzO]

Empezado por rounin

PS Porque creas subcomponentes en AfterConstruction?
Porque no en Create?

Perdón por no contestar , estuve con mucho trabajo.

Los subcomponentes los creo en el metodo AfterConstruction porque en el constructor Create el componente aun no está creado y no puedo asignarle la variable Self a la propiedad Parent del subcomponente, ni tampoco pasarlo como Owner en la creación del subcomponente. O almenos eso entendí.

Saludos y éxitos con el español.

[rounin]

Puedes hacer eso en Create después inherited.
En este lugar el componente esta creado totalmente.
(sólo las propiedades no ya esta cargado de DFM y
la ventana no ya esta creado).