Zitat von
mirage228:
einfach CanClose := False;
und das Programm mit
Application.Terminate;beenden
Aua. Hast du auch jedes mal von deinem Vater eins mit dem Holzhammer auf den Kopf bekommen, wenn du nicht schlafen konntest?.
Delphi-Quellcode:
var
bAllowClose : Boolean = FALSE; // global
{...}
procedure Form1.OnCloseQuery(....);
begin
CanClose := bAllowClose;
end;
procedure Form1.ButtonClick(...);
begin
bAllowClose := TRUE;
Close;
end;