MIDFORM窗体的问题(100分)

J

jackiehuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #1

我程序主窗体是mdiform
1---单击菜单打不开所针对的子窗体，老是报错
请高手指教怎么样写任意打开和关闭主窗体菜单下子窗体的代码以及窗体的属性设置！！！
2---打开1个主窗体内的子窗体，却关不了，只是最小化，有没有办法关闭。

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #2

E-Mail???我有例子,详细的

 

S

smallsun007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #3

gz

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #4

1、打开之有先遍历所有子窗体如果存在的话直接RESTORE
2、在ONCLOSE事件中写上下面一句
action:=cafree;

 

W

wolf7525

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #5

关闭子窗体：
在onFormClose事件添加代码：
Action := caFree;
FormName := nil;
在要窗体显示之前判断：
if not assign(FormName) then
begin
Formname := TFormName.Create(Application);
Formname.Show;
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #6

1、我习惯是用TList保存已经打开的窗体。注意有几个属性可以很方便操作子窗体
ActiveMDIChild，MDIChildCount，MDIChildren

2、在FormClose事件中
Action := caFree

 

J

jackiehuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #7

bamboo1025@etang.com

 

J

jackiehuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #8

谢谢！！！！

 

S

sunrainwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #9

例如要打开名为W_gdghcx的子窗体：
1.设置W_gdghcx的formstyle为fsMDIChild；
2.在W_gdghcx的close事件中加
Action := caFree;
3.在W_gdghcx的destroy事件中加
W_gdghcx:=nil;
4.打开W_gdghcx的代码：
IF NOT Assigned(W_gdghcx) then
W_gdghcx:= TW_gdghcx.Create(application);//保证不会创建相同的实例
W_gdghcx.show;