Auf Abmelden/Herunterfahren in onClose reagieren

[ringli]

Also ich habe es bei mir so gemacht. Vielleicht hilft dir das ja weiter:

Delphi-Quellcode:

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Button : Word;
begin
  Button := MessageBox(Handle,
                       PChar('Beenden?'),
                       PChar('Ende der Anwendung'),
                       MB_YESNO or MB_ICONQUESTION);

  case Button of
    mrNo :
      begin
        Action := caNone;
        Application.Minimize;
        end;
    mrYes :
      begin
        Action := caFree;
      end;
  end;
end;