Tachschen ...
versuchs mal damit: (klappt!)
Code:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=FALSE; //verhindern, Alt+ F4 = schließen
end;
das musst du im Objectinspektor bei Form1 unter Ereignisse einstellen!
um nun das programm beenden zu können (weil jetzt auch das kleine Schließen-Kreuz nicht mehr funktioniert, musst du anstatt "close;"
"application.terminate" schreiben.
hoffe ich habe dir geholfen
cu Trouble_Maker