Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: 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 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.061 c
9-1086872388
init13
2004-06-10 16:59
2004.10.10
ГЛСцена (текст)


4-1094644439
Apolo
2004-09-08 15:53
2004.10.10
Пару вопросов по потокам


1-1096059561
DeoS
2004-09-25 00:59
2004.10.10
Удаление


3-1094920725
Master Kolyan
2004-09-11 20:38
2004.10.10
Организация виртуальной памяти используя принципы работы БД


3-1094885277
sloug
2004-09-11 10:47
2004.10.10
Дополнительное поле и работа с ним