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。什么地方有问题,望指教。
还有什么办法可以实现,重新写类吗。
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。什么地方有问题,望指教。
还有什么办法可以实现,重新写类吗。