AW: TDataSet.Refresh erweitern
Zitat:
Nach dem ich mir die Implementierungen der beteiligten Methoden angeschauft habe, sollte folgende Lösung funktionieren (vollig ungetestet).
Delphi-Quellcode:
type
TMyDataSet = class(TDataSet) // oder die von dir bevorzugte TDataSet-Ableitung private FNoRefresh: Boolean; protected procedure DoBeforeRefresh; override; procedure CheckBrowseMode; override; procedure UpdateCursorPos; override; procedure InternalRefresh; override; procedure Resync(Mode: TResyncMode); override; procedure DoAfterRefresh; override; end; implementation procedure TMyDataSetDoBeforeRefresh; begin FNoRefresh := <deine begingung> if FNoRefresh then Exit; inherited; end; procedure TMyDataSetCheckBrowseMode; begin if FNoRefresh then Exit; inherited; end; procedure TMyDataSetUpdateCursorPos; begin if FNoRefresh then Exit; inherited; end; procedure TMyDataSetInternalRefresh; begin if FNoRefresh then Exit; inherited; end; procedure TMyDataSetResync(Mode: TResyncMode); begin if FNoRefresh then Exit; inherited; end; procedure TMyDataSetDoAfterRefresh; begin if FNoRefresh then FNoRefresh := False else inherited; end; end. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz