Eliminar y reemplazar un componente visual en tiempo de ejecución

Question

¿Es posible, por ejemplo, reemplazar y liberar un TEdit con un componente subclase instanciado (condicionalmente) en tiempo de ejecución? Si es así, ¿cómo y cuándo debería hacerse? Intenté configurar el padre en cero y llamar a free() en el constructor de formularios y en los métodos AfterConstruction, pero en ambos casos recibí un error de tiempo de ejecución.

---

Siendo más específico, recibí un error de violación de acceso (EAccessViolation). Parece que François tiene razón cuando dice que liberar componentes en el armazón del armazón es un problema con el control de la forma.

Answer 1

esto más genéricos trabajos de rutina, ya sea con un formulario o marco (actualizado para utilizar una subclase para el nuevo control):

function ReplaceControlEx(AControl: TControl; const AControlClass: TControlClass; const ANewName: string; const IsFreed : Boolean = True): TControl; 
begin 
    if AControl = nil then 
    begin 
    Result := nil; 
    Exit; 
    end; 
    Result := AControlClass.Create(AControl.Owner); 
    CloneProperties(AControl, Result);// copy all properties to new control 
    // Result.Left := AControl.Left; // or copy some properties manually... 
    // Result.Top := AControl.Top; 
    Result.Name := ANewName; 
    Result.Parent := AControl.Parent; // needed for the InsertControl & RemoveControl magic 
    if IsFreed then 
    FreeAndNil(AControl); 
end; 

function ReplaceControl(AControl: TControl; const ANewName: string; const IsFreed : Boolean = True): TControl; 
begin 
    if AControl = nil then 
    Result := nil 
    else 
    Result := ReplaceControlEx(AControl, TControlClass(AControl.ClassType), ANewName, IsFreed); 
end; 

utilizando esta rutina para pasar las propiedades del nuevo control

procedure CloneProperties(const Source: TControl; const Dest: TControl); 
var 
    ms: TMemoryStream; 
    OldName: string; 
begin 
    OldName := Source.Name; 
    Source.Name := ''; // needed to avoid Name collision 
    try 
    ms := TMemoryStream.Create; 
    try 
     ms.WriteComponent(Source); 
     ms.Position := 0; 
     ms.ReadComponent(Dest); 
    finally 
     ms.Free; 
    end; 
    finally 
    Source.Name := OldName; 
    end; 
end; 

usarlo como:

procedure TFrame1.AfterConstruction; 
var 
    I: Integer; 
    NewEdit: TMyEdit; 
begin 
    inherited; 
    NewEdit := ReplaceControlEx(Edit1, TMyEdit, 'Edit2') as TMyEdit; 
    if Assigned(NewEdit) then 
    begin 
    NewEdit.Text := 'My Brand New Edit'; 
    NewEdit.Author := 'Myself'; 
    end; 
    for I:=0 to ControlCount-1 do 
    begin 
    ShowMessage(Controls[I].Name); 
    end; 
end; 

PRECAUCIÓN: si está haciendo esto dentro de la construcción posterior del marco, tenga en cuenta que la construcción del formulario de alojamiento no ha finalizado aún.
Freeing Controles allí, pueden causar muchos problemas ya que estás jugando con controles de forma.
Vea lo que se obtiene si se intenta leer la nueva edición de subtítulos para mostrar en el ShowMessage ...
En ese caso, habría que desee utilizar
... ReplaceControl (Edit1, 'Edit2', Falso)
y luego hacer un
... FreeAndNil (Edit1)
posterior.

Answer 2

Tienes que llamar a RemoveControl del padre de TEdit para eliminar el control. Use InsertControl para agregar el nuevo control.

var Edit2: TEdit; 
begin 
    Edit2 := TEdit.Create(self); 
    Edit2.Left := Edit1.Left; 
    Edit2.Top := Edit2.Top; 
    Edit1.Parent.Insertcontrol(Edit2); 
    TWinControl(Edit1.parent).RemoveControl(Edit1); 
    Edit1.Free; 
end; 

Reemplazar TEdit.Create a la clase que desea utilizar y copiar todas las propiedades que necesita, como lo hice con Izquierda y Superior.

Answer 3

En realidad, puede utilizar RTTI (busque en la unidad TypInfo) para clonar todas las propiedades coincidentes. Hace un tiempo escribí código para esto, pero no puedo encontrarlo ahora. Seguiré buscando.