Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.062 Beiträge
Delphi 12 Athens
|
AW: Owner einer Formulars nachträglich ändern
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)
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
Geändert von himitsu (15. Jul 2010 um 11:21 Uhr)
|