怎样能将右上角的X变为不可用??注意FormStlye是fsMDIForm

Question

怎样能将右上角的X变为不可用??注意FormStlye是fsMDIForm

Answer 1

self.BorderIcons := [];
self.BorderStyle := bsNone;

Answer 2

在fromqueryclose 中写
canclose:=false;
此form就不能关闭
当你想关闭的时候,设置为canclose:=true;

Answer 3

直接将BORDERSTYLE设为BSNONE就可以了

Answer 4

要想让X看不见：将BorderIcons\biSystemMenu设为false就可以了
要想让X看见，但关不掉窗口：在OnClose中写Action:=caNone;
但你在任何时候想调用Close想关掉该窗口也不可能了；只好用Application.terminate;

Answer 5

可以啊
这个你试试
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);

Answer 6

HMENU hSysMenu = GetSystemMenu(Handle,0);//得到系统菜单句柄
EnableMenuItem(hSysMenu,SC_CLOSE,MF_DISABLED);//使"关闭"项不可用.此时"关闭"按扭变灰,但系统菜单中的"关闭"没有变灰,只是不能选择.
第二句也可以改为:
EnableMenuItem(hSysMenu,SC_CLOSE,MF_GRAYD);与上面不同的是,这时系统菜单中的"关闭"项也变灰了.