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

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之窗，原文地址：http://www.52delphi.com

转载于:https://www.cnblogs.com/martian6125/archive/2009/11/02/9631248.html