[求助]一个小问题 (20分)

  • 主题发起人 主题发起人 settingsun
  • 开始时间 开始时间
S

settingsun

Unregistered / Unconfirmed
GUEST, unregistred user!
我用一个panel做为模板显示窗体,例如其中 一个(举个例子)

if (not Assigned(form2)) then
application.CreateForm(tform2,form2);
form2.Dock(panel,BoundsRect);
form2.Show;


我想关闭当前的窗口
for i:=0 to panel.DockClientCount -1 do
begin
if (panel.DockClients as Tform).Showing then
begin
(panel.DockClients as Tform).Close ;
end;

为什么关闭不了(没有反应),panel.DockClientCount的值始终为0。什么地方有问题,望指教。
还有什么办法可以实现,重新写类吗。

 
没人知道吗,都进来看看啊。
 
你试着在关闭前把panel.DockClients as Tform的Parent设为nil看看
 
还是不行,panel.DockClientCount的值始终为0,那位老兄知道啊,帮帮小弟啊。
 
接受答案了.
 
后退
顶部