Bestätigungsfenster beim Beenden öffnen.

[Astat]

Zitat von Schwedenbitter:

Zu früh gefreut!

Als Ansatz..

Delphi-Quellcode:

var
  _Action: TCloseAction = caNone;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Action <> _Action then begin
    _Action := Action;
    halt(messagebox(
      handle,
      PChar('foo'),
      PChar('bar'),
      MB_OK    or MB_SYSTEMMODAL
      ));
  end else
    Action := caNone;
end;

lg. Astat