L Liyue Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #1 为防止用户非正常退出，怎样屏蔽Form左上角的弹出菜单和右上角的“叉”？<br>怎样屏蔽鼠标？<br>
W whf Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #2 在OnCloseQuery事件中<br>CanClose := myCloseFlag;
L Liyue Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #3 我的目的是在游戏没有结束前，用户无法自行关闭窗口。<br>CanClose := myCloseFlag;出现语法错误。<br>
J j5203 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #4 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br> Action := caNone;<br>end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br> Action := caNone;<br>end;
D dingbaosheng Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #5 下面函数可以使"关闭"按钮失效:<br>EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED <br><br>为了防止用户按alt+f4关闭窗口,你必须在Form的CloseQuery事件中<br>canclose:=false;<br>以后,当你自己想关闭该窗口时,只要<br>form1.onCloseQuery:=nil;<br>close;即可.
下面函数可以使"关闭"按钮失效:<br>EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED <br><br>为了防止用户按alt+f4关闭窗口,你必须在Form的CloseQuery事件中<br>canclose:=false;<br>以后,当你自己想关闭该窗口时,只要<br>form1.onCloseQuery:=nil;<br>close;即可.
J jqw Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #6 试试以下方法：<br>form.borderstyle:=bsNone;<br>自己再做一个标题栏
L Liyue Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-28 #7 谢谢dingbaosheng!<br>能否把右上角的"_"和"口"也屏蔽掉？谢谢！！！！
