如何关闭MDI子窗体(100分)

9

94132195

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-09

• #1

MDI中打开了很多个子窗口，我想在主窗体上加入一个关闭的按钮，当点击关闭按钮时关闭当前打开的那个子窗口，每次点击只能关闭一个子窗口，当发现子窗口已全关闭时那退出主程序....

 

Y

y_pz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-09

• #2

procedure TForm1.CloseClick(Sender: TObject);
var i:integer;
begin
if form1.MDIChildCount>0 then
begin
for i:=0 to form1.MDIChildCount-1do
begin
if form1.ActiveMDIChild=form1.MDIChildren then
form1.MDIChildren.Close;
end;
end
else
application.Terminate;
end;

将子窗口的Close事件写入
action:=cafree;

 

C

ChrisMao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-09

• #3

if ActiveMDIChild = Nil then
Self.Close
else
ActiveMDIChild.Close;
MDI子窗体的OnClose事件中加入Action := caFree;

 

9

94132195

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-09

• #4

非常感谢!!!!!!!!!1111