怎样将窗体的系统关闭按钮屏蔽

Question

Form1.BorderIcons.biSystemMenu := False ;

Answer 1

在ＦｏｒｍＣｒｅａｔｅ事件里写上
procedure TForm1.FormCreate(Sender: TObject);
var
 hMenu:THandle;
begin
  hMenu:=GetSystemMenu(Self.Handle,false);
  RemoveMenu(hMenu,$f060,$200);
  EnableMenuItem(hMenu,SC_CLOSE,1);
end;

Answer 2

var
 Flag : UINT;
 AppSysMenu : THandle;
begin
     AppSysMenu := GetSystemMenu(Handle, False);
     Flag := MF_GRAYED ;
     EnableMenuItem(AppSysMenu, SC_CLOSE,MF_BYCOMMAND or Flag);
end ;
这样也行

Answer 3

Form1.BorderIcons.biSystemMenu := False ;