- //禁止关闭按纽,以下代码使窗体的关闭按纽总是灰色不可用
- procedure TForm1.FormCreate(Sender: TObject);
- var
- mnu: HMENU;
- begin
- mnu:= GetSystemMenu(Handle, false);
- EnableMenuItem(mnu, SC_CLOSE, MF_BYCOMMAND + MF_DISABLED + MF_GRAYED);
- end;
- //关闭按纽总是灰色之后窗体无法正常关闭
窗体的关闭按纽总是灰色不可用
最新推荐文章于 2021-07-05 23:57:35 发布