Programmbeendigung verhindern

[Cyberbob]

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