去掉delphi编制的form窗口右上角的X按钮(30分)

请问那位大虾,能把delphi编制的form窗口右上角的X按钮去掉或失效,
但必须最小和最大化按钮保留.不要使用canclose:=false;命令.
望赐教! 多谢!!!!!!

在onShow中写入:
procedure TForm1.FormShow(Sender: TObject);
begin
...
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
...
end;
这样会Disable关闭按钮,当然Alt + F4 热键还可以用,
可以把Form的KeyPreview属性打开,在onKeyDown事件中:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssAlt]) and (Key = vk_F4) then
Key := 0;
end;
这样可以取消ALT + F4的作用

to redforks:
能否去掉呢?
Good luck!

如果真要这样的话，那你可能要继承wm_ncpaint事件了！

公子说的是。

多人接受答案了。