Скачать: CL | DM;

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

← →
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]

> KSergey ©   (23.09.04 11:17) [6]


Ответил на вопрос Arnold ©

---

← →
KSergey ©   (2004-09-23 11:32) [9]

2 [8] basken   (23.09.04 11:28)

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

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

---

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

> KSergey ©   (23.09.04 11:32) [9]

Да, наверно сказывается конец рабочей недели...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.028 c