フォーム右上のXボタンを無効にする

フォーム右上にある閉じるためのボタン[X]を非表示ではなく無効にするプロパティはありません。しかし DeleteMenu APIを使いシステムメニューを削除すれば右上の閉じるボタンは無効になります。

■ DeleteMenu の使用例 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    insMenu  :  HMenu;
  begin
    insMenu     :=     GetSystemMenu(Handle, False);
    DeleteMenu  (insMenu, 6, MF_BYPOSITION); //閉じるのメニュー 
    DeleteMenu  (insMenu, 5, MF_BYPOSITION); //閉じるの上のバー
    DrawMenuBar (Handle);
  end;