Propiedad tipo Objeto

[dec]

Hola,

Llevas razón en los dos mensajes que publicaste antes roman. Y otra vez digo que me metí en donde no debí, porque quien sabe, sabe, y ya se ve que yo no sé. Respecto de tu penúltimo mensaje, sí, comprendo que lo que estaba haciendo no era, precisamente, copiar, sino solamente asignar la referencia a otro objeto, que no es lo que se pretende con el método "Assing".

Lo que ocurre es que me pierdo, entonces. Quiero decir, ¿habría entonces que hacer algo como lo siguiente? Va a ser que no, pero, ¿qué tal parece esto? ¿Mejor que lo anterior?

Código Delphi [-]
  procedure TMiForm.Assign(Source: TPersistent);
  begin
    inherited;
     if Source is TForm then
     begin
       FForm.Assign(Source);
     end;
     inherited Assign(Source);
  end;