Entfernen und Ersetzen einer visuellen Komponente zur Laufzeit

Question

Ist es beispielsweise möglich, ein TEdit durch eine zur Laufzeit instantiierte (bedingt) instanziierte Komponente zu ersetzen und freizugeben? Wenn ja, wie und wann sollte es gemacht werden? Ich habe versucht, das Elternteil auf Null zu setzen und free() in den Formularkonstruktor- und AfterConstruction-Methoden aufzurufen, aber in beiden Fällen habe ich einen Laufzeitfehler bekommen.

---

Spezifischer sein, ich habe einen Zugriffsverletzung Fehler (EAccessViolation). Es scheint, dass François Recht hat, wenn er sagt, dass das Freigeben von Komponenten bei der Frame-Construction mit der Form-Controls-Verwaltung kollidiert.

Answer 1

Diese generische Routine funktioniert entweder mit einem Formular oder Frame (aktualisiert, um eine Unterklasse für die neue Steuerung zu verwenden):

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; 

diese Routine mit den Eigenschaften der neuen Steuerung passieren

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; 

Gebrauch mag es:

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; 

VORSICHT: Wenn Sie dies in der AfterConstruction des Frame tun, achten Sie darauf, dass die Erstellung des Hosting-Formulars noch nicht abgeschlossen ist.
Wenn Sie die Steuerelemente dort freigeben, kann dies zu vielen Problemen führen, da Sie Probleme mit der Verwaltung von Formularsteuerelementen haben.
Sehen Sie, was Sie bekommen, wenn Sie versuchen, die neue Beschriftung bearbeiten lesen in der Showmessage anzuzeigen ...
In diesem Fall Sie
... ReplaceControl (Edit1 ‚Edit2‘, Falsch) verwenden wollen
und dann tun Sie eine
... FreeAndNil (Edit1)
später.

Answer 2

Sie müssen RemoveControl des übergeordneten TEdit-Elements aufrufen, um das Steuerelement zu entfernen. Verwenden Sie InsertControl, um das neue Steuerelement hinzuzufügen.

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; 

ersetzen TEdit.Create auf die Klasse, die Sie verwenden möchten, und kopieren Sie alle Eigenschaften, die Sie brauchen, wie ich mit links und oben tat.

Answer 3

Sie können RTTI (siehe TypInfo-Einheit) verwenden, um alle übereinstimmenden Eigenschaften zu klonen. Ich habe vor einiger Zeit einen Code dafür geschrieben, aber ich kann ihn jetzt nicht finden. Ich werde weiter suchen.