Ver Mensaje Individual
  #10  
Antiguo 07-09-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.114
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
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;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 07-09-2005 a las 21:51:11. Razón: (corrección del texto)
Responder Con Cita