TDataSet.Refresh erweitern

[nahpets]

Bin mir nicht sicher, aber Du meinst doch sowas:

Delphi-Quellcode:

unit DataSetTest;

interface

uses
  SysUtils, Classes, DB;

type
  tDataSetTest = class(TDataSet)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    procedure Refresh;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('WoAuchImmer', [tDataSetTest]);
end;

procedure tDataSetTest.Refresh;
begin
  if 1 = 2 then exit; // latürnich eine sinnvolle Bedingung ;-)
  inherited;
end;

end.

Delphi 7 kompiliert das und installiert die Komponente anstandslos.