您现在的位置:首页 >> 界面报表 >> 界面报表 >> 内容

Delphi中让窗口关闭按钮无效的6种方法

时间:2011/9/3 15:24:37 点击:

  核心提示:1、 procedureTForm1.WMInit(varmsg:TWMInitMenuPOPUP); begin inherited; EnableMenuItem(msg.MenuPopup,sc...
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; 

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号