Delphi中让窗口关闭按钮无效的6种方法
来源:互联网 发布:js与jsp数据交互 编辑:程序博客网 时间:2024/06/06 15:04
1、
procedure TForm1.WMInit(var msg: TWMInitMenuPOPUP);
begin
inherited;
EnableMenuItem(msg.MenuPopup ,sc_Close,MF_BYCOMMAND or MF_GRAYED)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PostMessage(handle, WM_INITMENUPOPUP, GetSystemMenu(handle, false), 0);
end;
2、
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := CaNone;
end;
3、
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;
4、
bordericons的bisystemmenu:=false;
5、
TForm1 = class(TForm)
private
procedure Sys(var msg: TMessage);message WM_SYSCOMMAND;
public
{ Public declarations }
end;
procedure TForm1.Sys(var msg: TMessage);
begin
if msg.WParam = SC_CLOSE then
msg.Result := 1;
end;
6、
procedure WMInit(var msg: TWMInitMenu);message WM_INITMENU;
procedure TForm1.WMInit(var msg: TWMInitMenu);
begin
inherited;
EnableMenuItem(msg.Menu,sc_Close,MF_BYCOMMAND or MF_GRAYED)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PostMessage(handle, WM_INITMENU, GetSystemMenu(handle, false), 0);
end;
- Delphi中让窗口关闭按钮无效的6种方法
- Delphi中让窗口关闭按钮无效的6种方法
- Delphi中让窗口关闭按钮无效的6种方法
- VC++无效化控制台窗口的关闭按钮
- VC++无效化控制台窗口的关闭按钮(菜单)
- 禁用窗口的关闭按钮方法
- C# 禁用 关闭窗口 按钮的方法
- C# 禁用 关闭窗口 按钮的方法
- vb窗体让关闭按钮无效
- Excel中将UserForm中的关闭按钮无效的方法
- delphi点击关闭按钮让窗体最小化
- java关闭窗口的6种方法
- 如何判断IE窗口关闭和让IE6.0右上角的“关闭”按钮失效
- Delphi中如何禁止某窗口被关闭的
- DELPHI中MDI子窗口的关闭 和打开
- Delphi中拖动无边框窗口的5种方法
- Delphi中拖动无边框窗口的5种方法
- 如何在网页中加入关闭窗口的按钮?
- 为图片添加水印
- 三个timer相关的类之一 - CIdle
- WAV文件的头信息(文件头格式)
- 编写程序:从键盘上输入若干个整数(以输入-1作为结束标识),输出这些数中的最大值和最小值,要求编写一个函数实现最大值和最小值的求取。
- Struts标签checkbox使用總結(默認選擇設置)
- Delphi中让窗口关闭按钮无效的6种方法
- POI对公式的支持
- Android简介
- SSH 搭建异常总结
- Delphi中创建一个可以改变大小的无边框窗口
- Delphi中窗体的帮助按钮上执行一个自定义的动作
- 解决 eclipse 中文乱码问题
- 关于配置移动硬盘上的Eclipse+mingw+qt4.5.3的问题解决!
- 收集了几个关于J2ME图片缩放的函数