Home » Tipps & Tricks » Komponenten » TForm » Beenden-Button in der Titelleiste deaktivieren

Beenden-Button in der Titelleiste deaktivieren

Um den Beenden-Button in der Titelleiste (üblicherweise das ‚X‘) auszublenden bzw. zu deaktivieren, müssen Sie den entsprechenden Menüpunkt aus dem Systemmenü der Anwendung löschen:

procedure TForm1.FormCreate(Sender: TObject);
var
  h: THandle;
begin
  h := GetSystemMenu(Handle, False);

  if h  0 then
  begin
    DeleteMenu(h, SC_CLOSE, MF_BYCOMMAND);
    DrawMenuBar(Handle);
  end;
end;

Die Anweisung DrawMenuBar ist notwendig, damit die Titelleiste neu gezeichnet wird und die Änderungen somit sichtbar werden.Die Anwendung lässt sich weiterhin mit ALT+F4 beenden.