求助:在MDI主窗体中只能显示一个子窗体(50分)

Z

zhcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #1

打开一个子窗体后,菜单变灰色,不再起作用。
form5.showmodal只能对fsnormal窗体有效,mdichild窗体无效,请问各位仁兄有无简单有效
的方法?

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #2

子窗体不能showmodal。这个问题已经讨论过！

将要showmodal的窗口设为fsnormal，不会出问题。

要菜单变灰是最容易不过的事了，Enabled:=false就行了！
子窗口关闭时再将主窗口的菜单设为： Enabled:= true 就行了。

 

Z

zhcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #3

虽然是小问题，仍然困惑了我很久，多谢你的指点，无以为报，只有送上我的区区薄礼－－
５０分，表示谢意，万分感激！

 

Z

zhcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #4

谢谢！

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #5

不用客气，不过我还没拿到你的分。：）

如果你认为你的问题已经解决，就结束问题吧！

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #6

在MDI主窗体中只能显示一个子窗体 :
procedure TForm1.MainMenu1Change(Sender: TObject; Source: TMenuItem;
Rebuild: Boolean);
var
childcount:integer;
begin
if form1.MDIChildCount >0 then
begin
for childcount:=0 to form1.MDIChildCount do
form1.MDIChildren[childcount].Close ;
end;
end;
在子窗体的onclose事件中设置:
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
form3:=nil;
end;

 

Z

zhcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-22

• #7

多谢各位的指点，问题已经得到解决，我把仅有５０分送给你们，不好意思。