panel控件问题，前面的帖子我看过了，没解决问题，高手请进！ (10分)

  • 主题发起人 主题发起人 huayf
  • 开始时间 开始时间
H

huayf

Unregistered / Unconfirmed
GUEST, unregistred user!
我动态生成一些控件显示在Panel上,
我想通过对panel的操作，让panel重新呈空白状。如何作？
 
for i:=panel.compoments.count-1 downto 0 do
begin
panel.compoments.free;
end;
 
for i:=panel.Controls.Count-1 downto 0 do
begin
panel.Controls.Visible := False;
end;
注意Components与Controls是有差别的。

Components是TComponent实现并维护的组件列表，记录把该组件作为Owner的子组件。
Controls是TWinControl实现并维护的TWinControl列表，记录把该TWinControl作为Parent
的TWinControl。
在他们释放的时候会自动释放他们的Components与Controls
 
同意楼上。
同时一定要注意那个for循环的顺序！如果是释放的话，
一定要从大到小！
 
有分大家分点：
var
I: Integer;
Instance: TControl;
begin
I := ControlCount;
while I <> 0 do
begin
Instance := Controls[I - 1];
RemoveControl(Instance);
Instance.Destroy;
Instance:=nil;
I := ControlCount;
end;
end;

另外对compoents的释放是没有用的，因为panel.contorls[].owner一般是所在的窗体
不会是panel.
components与owner对应
controls与parent对应
 
//sorry,miss with sentence：
var
I: Integer;
Instance: TControl;
begin
I := ControlCount;
with panel1 do
begin
while I <> 0 do
begin
Instance := Controls[I - 1];
RemoveControl(Instance);
Instance.Destroy;
Instance:=nil;
I := ControlCount;
end;
end;
end;

 
你只要生成成控件的时候是这样写的tcompoment.create(panel)，控件的owner就是panel.
用control有时会有问题的。
如一个labeledit控件你用contorls访问的话会是两个控件，建议还是用compoment。
 
上面的帖子我都看过了，加上这段代码执行结果与没有这段代码一样，有些控件可以被覆盖
有些不行，
 
先释放控件，再repaint panel就行了。谢谢大家！
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
D
为什么会出现这样的问题，好糊涂呀！ProgressBar1进度条的！(20分)
回复
9
查看
142
delphiere
D
H
动态生成控件问题,前面的帖子我都看了，还是没有解决问题，高手请进！！！没有人回答吗？我可以加分 (20分)
回复
11
查看
135
huayf
H
Y
我在Panel上拖动图片时，超出Panel的边界就看不见了，为什末？谢谢！！(50分)
回复
3
查看
125
Alex_Y
A
E
请问vc的控件中有没有Panel这样的控件呢?(300分)
回复
1
查看
278
yanghai0437
Y
后退
顶部