ALT + F4 verhindern?

[Luckie]

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;