已有一个控件panel1，又动态创建panel2，如何才能把panel1中的控件复制到panel2中？(100分)

aaycsdn · 2001-12-16

是不是也必须动态创建？这样太麻烦了。
可不可以通过panel1动态创建，如何才能创建呢？

aaycsdn · 2001-12-16

就是说panel2和panle1完全一样（包扩所含控件）。

jqw · 2001-12-16

for i:=0 to panel1.componentcount-1 do
...

jamstina · 2001-12-16

如果没有记错，delphi5中引入了Frame的概念，用这个就行了

polis · 2001-12-16

修改parent

zhihuali · 2001-12-16

for I := 0 to Panel1.ComponentCount - 1 do
TControl(Panel1.Components).Parent := Panel2;

yzhshi · 2001-12-16

好像应该用ControlCount

D.Q.C · 2001-12-16

改变parent就行了

yzhshi · 2001-12-16

复制

whf · 2001-12-16

不行吧，修改Parent，那panel1上的控件不都没了，只能再创建一遍

yzhshi · 2001-12-16

重新创建肯定是的，不过属性应该可以从原来的那个里面读出来。
我到不知道用什么办法来读[

]

hwchen · 2001-12-16

同意jamstina

初学者1 · 2001-12-16

应该用frame,delphi自带的有frame例子,

zouming · 2001-12-16

procedure TForm1.FormCreate(Sender: TObject);
begin
panel2.parent:=panel1;
end;

aaycsdn · 2003-03-13

多人接受答案了。