/trunk/BugtrackerMain.pas |
---|
306,11 → 306,14 |
// bei Ereignissen wie z.B. dem Scrolling aufgerufen (noch bevor |
// OnBeforeScroll aufgerufen wird), bei dem man einen MBOnCloseQuery wünscht. |
qryBugs.Tag := 1; |
try |
qryBugs.Cancel; |
finally |
qryBugs.Tag := 0; |
end; |
end; |
end; |
end; |
procedure TfrmBugtracker.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
begin |