Form1.BorderIcons.biSystemMenu := False ;
解决方案 »
- SQL时间比较
- 函数怎么返回多个值,并分别调用
- object Pascal有正则表达式可以用吗?
- 类与类之间的捆绑是啥意思?请高手解答
- 谁有Indy的中文书籍,送50分
- 请高手指教
- 随能教我ehlib打印控件的用法吗?谢谢
- 如何将grid中每个cell中的字符居中显示
- 请大家帮我UP,UP 把,我已经连续三次UP了。不能在U了 http://www.csdn.net/Expert/topic/438/438950.shtm
- 如何在sql中查询借书日期字段与当前日期的比较, 两者不超过30天,借书日期是字符变量
- 急急急!!怎么让我的某个窗口显示在最上面呢??
- 我很盲目!!怎么办??谁来帮助我!!!
procedure TForm1.FormCreate(Sender: TObject);
var
hMenu:THandle;
begin
hMenu:=GetSystemMenu(Self.Handle,false);
RemoveMenu(hMenu,$f060,$200);
EnableMenuItem(hMenu,SC_CLOSE,1);
end;
Flag : UINT;
AppSysMenu : THandle;
begin
AppSysMenu := GetSystemMenu(Handle, False);
Flag := MF_GRAYED ;
EnableMenuItem(AppSysMenu, SC_CLOSE,MF_BYCOMMAND or Flag);
end ;
这样也行