[HELP]Assistant schaltet sich aus

[Gabberjool]

ja aber für den assistat muss ich in demfall die dokumentation anschauen weil über CloseQuery gehts so:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
const
  Msg = 'Bist du sicher das du das Programm Verlassen Wilst ?';
begin
  if not Assistant1.MovingToSync then
  begin Assistant1.MsgDlg.Title := 'Beenden';
        CanClose := Assistant1.MessageDlg(Msg, mtWarning, [mbYes, mbNo], 0) = mrYes;
        if CanClose and Assistant1.Showing and (Assistant1.DockSite = nil) then
        begin Hide;
              Assistant1.Visible := False;  end;
        end
      else
        CanClose := False; end;

Nur an den normalen OK ohne das er es closed... bin noch am rumtesten