Надо сменить владельца компонента

← →
Arnold © (2004-09-23 10:09) [0]

Вобщем ситуация следующая необходимо сменить владельца компонента например с формы на панель. Пишу следующий код:
procedure ChangeOwner(Component,NewOwner:TComponent);
begin
Component.Owner.RemoveComponent(Component);
NewOwner.InsertComponent(Component);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Assigned(Button1) then
begin
Button1.Parent:=Panel1;
ChangeOwner(Button1,Panel1);
end;
end;

с формы на другую форму этот код работает а если с формы на панель то нет. Помогите разобраться в чем тут подвох
Спасиба

← →
Sandman25 © (2004-09-23 10:16) [1]

А зачем менять владельца?

← →
antonn © (2004-09-23 10:21) [2]

Наверно нужно таскать их в реале...

← →
KSergey © (2004-09-23 10:24) [3]

> [2] antonn © (23.09.04 10:21)
> Наверно нужно таскать их в реале...

Таскать - это как? Визуально? Тогда парента вообще-то меняют...
А не получается - в каком смысле? Ошибка? Какая?

← →
Petr V. Abramov © (2004-09-23 10:26) [4]

Панель - parent а не owner

← →
basken (2004-09-23 10:57) [5]

procedure ChangeOwner(AComponent, AOwner: TWinControl); begin AComponent.Parent := AOwner;

← →
KSergey © (2004-09-23 11:17) [6]

> [5] basken (23.09.04 10:57)

Это вы к чему???

← →
Anatoly Podgoretsky © (2004-09-23 11:19) [7]

ChangeOwner(Button1,Panel1);
Button1.Parent:=Panel1;

← →
basken (2004-09-23 11:28) [8]

2 [8] basken (23.09.04 11:28)

> Arnold © (23.09.04 10:09)
> необходимо сменить владельца компонента

Кто-то из нас неправильно читает??

← →
basken (2004-09-23 11:37) [10]

Надо сменить владельца компонента Найти похожие ветки