关于父子窗体的问题(50分)

  • 主题发起人 主题发起人 anyqu
  • 开始时间 开始时间
A

anyqu

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何判断当前窗体内是否有子窗体打开,如有则弹出对话框,询问是否关闭!
 
var
I: Integer;
begin
with Form1do
for I := MDIChildCount-1do
wnto 0do
MDIChildren....;
end;
 
后退
顶部