关于MDI应用程序(50分)

C

cloudlet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #1

在打开一个子窗体时，如何关闭已打开的所有子窗体？？？

 

S

shiny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #2

假設變量 mainform := MDI主窗體
while mainform.MDIChildCount>0 do begin
mainform.MDIChildren[0].Close;
mainform.MDIChildren[0].Free;
end;

 

B

biyesheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #3

同意skiny

 

L

lhzzj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #4

1、Frame动态生成：
假如有一个TRegisterFrame,方法如下：
var
Frame: TRegisterFrame;
begin
....
Frame := TRegisterFrame.Create(Form1); //创建frame
Frame.Parent := Form1; //设置frame的Parent
.....
end;
2、Frame静态加入到Form中
第一步：在Frame窗体中，点击鼠标右键，在弹出的快捷菜单中选择“Add to Palette”子菜单，把该Frame加到面板上
第二步：从面板上拖该Frame控件到Form中即可

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #5

最简单的
procedure TMainForm.closeAll;
var
I: Integer;
begin
for I := MDIChildCount-1 downto 0 do
MDIChildren.Close;
end;

 

3

300850

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #6

好象skiny可以全部关掉，　光用Close有时不一定有用哪

 

C

cloudlet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #7

多人接受答案了。