X-Button entfernen

[Cyberbob]

Du kannst ihn aber deaktivieren:

Delphi-Quellcode:

var
  AppMenu: HMENU;
begin
  AppMenu:=GetSystemMenu({FormX.}Handle, False);

  // "ausschalten"
  EnableMenuItem(AppMenu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);

  // "einschalten"
  EnableMenuItem(AppMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
end;