Cita:
Empezado por dec
Código Delphi [-]
procedure TMiForm.Assign(Source: TPersistent);
begin
inherited;
if Source is TForm then
begin
FForm := TForm(Source);
end;
inherited Assign(Source);
end;
|
Hola
dec,
El propósito de Assign es
copiar el contenido de un objeto a otro.
Cuando asignas
FForm := TForm(Source);
no estás copiando el contenido sino simplemente la referencia al objeto. Es decir que sólo has pospuesto el problema de la asignación en el método Set al método Assign.
Estoy seguro que ahora ya te queda claro.
// Saludos