Leider kann/darf ich keinen Quellcode zeigen, das wäre auch etwas umständlich, aber das Prinzip geht so:
Delphi-Quellcode:
type
// diese Klasse kann ich nicht verändern:
TDataSetMitExtraFunktionalitaet = class(TDataSet)
public
procedure NichtAenderbar;
end;
implementation
procedure TDataSetMitExtraFunktionalitaet.NichtAenderbar
begin
// in dieser Prozedur kann ich nichts ändern
[...]
Refresh;
end;
procedure Demo;
var
ds1: TDataSetMitExtraFunktionalitaet;
begin
[...]
// hier passiert ein implizierter Refresh, der unterdrückt werden soll:
ds1.NichtAenderbar;
end;
Hoffe, das ist halbwegs verständlich