Und wie soll er das können, wenn der Button nicht mehr funktioniert.
entweder du schreibst im OnClose ereigns deines Formulares
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
end;
dadurch kann das formular nur noch über Application.Terminate geschlossen werden. Das ganze Programm wird beendet
Den Button selbst kannst du so deaktivieren
EnableMenuItem(GetSystemMenu(Form1.Handle, False), SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
und so wieder aktivieren
EnableMenuItem(GetSystemMenu(Form1.Handle, False), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
dabei kann das rogramm noch über Alt+F4 schliessen