Главная страница
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.025 c
3-1095056516
Uran
2004-09-13 10:21
2004.10.10
Не идет выборка в EasyTable


1-1096051032
ALex G
2004-09-24 22:37
2004.10.10
Загруска вордовских файлов через Олекантейнер


1-1096006472
Kniaz
2004-09-24 10:14
2004.10.10
копирование файла


8-1089642261
ИМХО
2004-07-12 18:24
2004.10.10
wav to mp3


1-1096258220
r9000
2004-09-27 08:10
2004.10.10
Работа с dll