Subversion Repositories winbugtracker

Rev

Rev 14 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14 Rev 15
Line 304... Line 304...
304
      // Tag=1 soll verhindern, dass nicht gefragt wird, ob man Speichern möchte.
304
      // Tag=1 soll verhindern, dass nicht gefragt wird, ob man Speichern möchte.
305
      // Ansonsten würde diese Meldung kommen, denn ".Cancel" wird automatisch
305
      // Ansonsten würde diese Meldung kommen, denn ".Cancel" wird automatisch
306
      // bei Ereignissen wie z.B. dem Scrolling aufgerufen (noch bevor
306
      // bei Ereignissen wie z.B. dem Scrolling aufgerufen (noch bevor
307
      // OnBeforeScroll aufgerufen wird), bei dem man einen MBOnCloseQuery wünscht.
307
      // OnBeforeScroll aufgerufen wird), bei dem man einen MBOnCloseQuery wünscht.
308
      qryBugs.Tag := 1;
308
      qryBugs.Tag := 1;
-
 
309
      try
309
      qryBugs.Cancel;
310
        qryBugs.Cancel;
-
 
311
      finally
310
      qryBugs.Tag := 0;
312
        qryBugs.Tag := 0;
311
    end;
313
      end;
312
  end;
314
    end;
313
end;
315
  end;
-
 
316
end;
314
 
317
 
315
procedure TfrmBugtracker.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
318
procedure TfrmBugtracker.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
316
begin
319
begin
317
  qryBugs.Cancel;
320
  qryBugs.Cancel;
318
end;
321
end;