Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.014 Beiträge
 
Delphi 12 Athens
 
#2

AW: Owner einer Formulars nachträglich ändern

  Alt 15. Jul 2010, 11:10
Das Einfachste wäre hier, erst garkeinen Owner anzugeben.
 ... := TMyForm.Create(nil) .

Delphi-Quellcode:
// Owner entfernen
MyForm.Owner.RemoveComponent(MyForm);

// Owner hinzufügen
NewOwner.InsertComponent(MyForm);
Delphi-Quellcode:
procedure ChangeOwner(Component, NewOwner: TComponent);
begin
  if Assigned(Component.Owner) then
    Component.Owner.RemoveComponent(Component);
  if Assigned(NewOwner) then
    NewOwner.InsertComponent(Component);
end;

ChangeOwner(MyForm, NewOwner)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (15. Jul 2010 um 11:21 Uhr)
  Mit Zitat antworten Zitat