Delphi Trick 005 - Remove close button form

Опубликовано: 18 Май 2026
на канале: YASCUB Delphi

1,533

AR : كيفية إزالة شكل زر إغلاق
FR : Comment faire pour supprimer le bouton de fermeture
AN : How to remove close button form
ES : Cómo eliminar la forma de cerrar el botón
RS : Как удалить форму закрытия кнопки
AL : So entfernen Sie das Schließen-Formular

Delphi Rad Studio HMENU GetSystemMenu HANDLE RemoveMenu SC_CLOSE SetWindowPos swp_nosize swp_nomove swp_nozorder swp_drawframe

var HD:HMENU;
begin
HD:=GetSystemMenu(HANDLE,false);//On récupère le menu système

//On enlève le menu associé à SC_CLOSE
if (HD null)then RemoveMenu(HD, SC_CLOSE,0);

SetWindowPos(HANDLE,0,0,0,0,0,swp_nosize
or swp_nomove
or swp_nozorder
or swp_drawframe);