Hallo turboPASCAL!
Ich habe schon versucht wm_close messages zu blocken:
Delphi-Quellcode:
procedure OnTryClose(var msg: TWMClose); message WM_CLOSE;
//...
procedure TForm1.OnTryClose;
begin
msg.Result := 0; //= als result zur bestätigung der Durchführung jedoch kein aufruf von inherited
end;
Blöderweise zeigt dieser Versuch keine Wirkung