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;