Form1.BorderIcons.biSystemMenu := False;

解决方案 »

  1.   

    还是
    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
         CanClose:=False;
    end;
    好一些,不影响最大,最小窗口。
      

  2.   

    不过按照楼上的方法的话就无法关闭了~~
    最好在增加一个变量来控制~~
    比如:
    如果是点击你的按钮则CloseFlag:=True;否则CloseFlag;p=False
    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
      CanClose := CloseFlag;
    end;
      

  3.   

    var
      mnu: HMENU;
    begin
      mnu := GetSystemMenu(Handle, False);
      EnableMenuItem(mnu,SC_CLOSE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);